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Primera 
plana 

Disco duro para el PCW8256. «Knock out» a los 
piratas. 



Para... PCW 

Analizamos nada mas y menos que Multiplan, de 
Microsoft, universalmente reconocida como una de las 
mejores hojas de calculo del mundo. Ya esta disponible 
para el PCW8256. 
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Analisis 


Explicamos detalladamente el metodo de calculo 
estadistico de areas, aplicado ademas a un divertido 
ejemplo de «disparos». 


ProgramAccion 
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El Amstrad posee varios canales de sonido, y 
gestiona perfectamente las posibles colisiones entre las 
notas almacenadas en cada uno. Aqui se explica 
como. 




Serie Oro 


iNecesita clasificar datos? Fichero se lo pone 
muy, pero que muy facil. Olvidese del lopiz y papel. 
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Banco de 
pruebas 


Todo el mundo sabe lo que es un lopiz optica y los 
fascinantes dibujos que se pueden crear con el. Y, 
para el que no lo sepa, pues probamos uno de los de 
mas solera del mercado: el lapiz optico de DK'Tronics. 



Mr Joystick 


SPITFIRE 40 es uno de los mejores programas 
creados por Mirrorsoft, denlro de la categoria de los 
simuladores de combate aereo. Os vais a divertir. 


* Primeros 

lfaj%^/ pasos 

En esta tercera y ultima parte del aprendizaje acerca 
de como usar los comandos grdficos del Amstrad, 
vamos a saber, de una vez por todas, dibujar todo 
tipo de lineas y estructuras curvas. 
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LO NUESTRO ES HACER BUENAS GESTIONES 

Para AMSTRAD 8256 y 6128 

CONTROL DE ALMACEN + I.V.A. 

Sepa lo que tiene, su costo, proveedor, totales por articulos y general. Pida cuantos 
resultados quiera de su explotacion, por producto, proveedor, etc., etc. (15.300 ptas. 
incluido I.V.A.) 

CUENTAS PROVEEDORES-BANCOS-CLIENTES 

Sencillo control de cuentas separadas (cuantas quiera), con lo que eliminara 
el problema diario de la pequefia empresa con buen movimiento (8.600 ptas. 
incluido I.V.A.) 

RECIBOS 

Programa que resuelve el mecanografiado interminable. Asociaciones, co- 

munidades, colegios, clubes, podran hacer los recibos normalizados con 

domiciliaci6n bancaria y posibilidad de correcciones. (8.300 ptas. incluido 

I.V.A.) 

CLIENTES 

Datos actualizados, etiquetas correspondencia. Peticion por 5 campos 

los resumenes (8.600 ptas. incluido I.V.A.) 

FACTURACION 

Numeraci6n correlativa automatica, fecha automatica, resumenes 

clientes y totalizaciones (15.300 ptas. incluido I.V.A.) 

PRESUPUESTOS 

Presupuesto sencillamente cuanto quiera y transf6rmelo en factu- 
ra de forma sencilla. Posibilidad transformaciones y reformas. 
(18.300 ptas. incluido I.V.A.) 


HACEMOS PROGRAMAS A MEDIDA 

Encargos llamar o contactar con Juan Luis Ruiz. Tno.: 474 55 32 




QIMPACTOS 

IMOVEDADES 
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PEDIDOS, TELEFONO, CARTA O TELEX 
REEMBOLSO SIN GASTOS. 

ESPECIAL A COLABORADORES 
RESTO DE ESPANA 

. informdtica 
► GROTUR, S.A. 

C/ JAIME EL CONQUISTADOR, 27 
28045 MADRID. Tno. 474 55 00 
474 55 32 
Telex: IGSA 48452 



El PCW8256 
CON DISCO DURO 


ace poco informd- 
bamos a nuestros lectores, r:e que la 
companfa inglesa Northern Compu- 
ters, habfa puesto en marcha una 
red local para el 6128, en r;l cual se 
inclufa la posibilidad de usor discos 
Winchester como metodo de alma- 
cenamiento de masa. 

En este sentido, Northern ya tiene 
disponible AMSTORE, un djsco duro 
(o Winchester) de 20 megabytes pa- 
ra el PCW8256. 

El periferico Neva ademds una se- 
rie de software de utilidades, pensa- 
do fundamentalmente para su utili- 
zacion en una red local. 

Asi, posee un «server» de impre- 
sora, por ejemplo, que permite que 
esta sea compartida por muchos 
usuarios, creando una cola de espe- 
ra con todos los ficheros que deben 
ser impresos, segun van llegando las 
peticiones. 


Amstore automaticamente se par- 
ticiona a si mismo y compacta la in- 
formacion destinada al disco duro, 
para un mdximo aprovechamiento 
del espacio disponible. 

De esta forma se evitan problemas 
tales como la limitacion del CP/M, 
que solo puede manejar 8 megaby- 
tes de ficheros; concretamente, los fi- 
cheros CP/M y MS-DOS (atencion, 
sistema operativo de IBM, posible 
compatibilidad) se guardan como to- 
kens. 

Este sistema, junto con un PCW, 
puede constituir el corazon de una 
red en anillo multiusuario, permitien- 
do la conexion de hasta 1 20 estacio- 
nes de trabajo. 

En Inglaterra cuesta 999 libras y 
desconocemos, por el momento, fe- 
chas de comercializacion y precios en 
Espafia. 


PORT DE 8 BITS PARA IMPRESORA 


L 


ra serie CPC de 
Amstrad lleva un port paralelo (Cen- 
tronics) de impresora, pero es de 7 
bits, esto es, solo se envfan los 7 bits 
menos significativos de un byte de 
datos. 

Esto presenta el problema, entre 
otras cosas, de que no se pueden 
mandar a la impresora caracteres 
definidos por el usuario. 

Para resolverlo, Hitech ha creado 


uno de 8 bits, que si lo permite, tan- 
to desde Basic como desde CP/M. 

Se incluye una utilidad para volcar 
la pantalla a la impresora, en forma 
de comando RSX, capaz de operar 
en todos los modos de pantalla. 

Los precios, en Inglaterra, son de 
15.75 libras en la version de casset- 
te y 1 9.95 en la de disco, con el soft- 
ware CP/M. 



«KNOCK OUT» 
A LOS PIRATAS 



asunto de los vi- 
deojuegos piratas incautados por la 
polia'a madrilena, el domingo 2 de 
marzo, ha levantado una gran pol- 
vareda, con toda la razon. 

Se retiraron nada menos que 
1 1 .000 programas, valorados en 22 
millones de pesetas, es decir, mas del 
valor del software vendido legalmen- 
te en todo un ano. 

La polia'a actuo a instancias de 
ANEXO (Asociacion de Ernpresas 
Fabricantes de Software), que de- 
nuncio una supuesta comercializa- 
cion de reproducciones ilegales de 
programas para microordenador. 
Obviamente, lo de «supuesta» dista 
bastante de la realidad, y si no que 
se lo pregunten a los 28 vendedores, 
la inmensa mayoria de ellos estu- 
diantes que producian ellos mismos 
las copias, fotocopiando a mano las 
cardtulas. 

Algunos de ellos, no obstante, re- 
cibfan los programas de terceras per- 
sonas, todavfa sin identificar. 

Imaginense el negocio, vendiendo 
programas de juegos para Amstrad, 
Spectrum y Commodore a 250 ptas., 
cuando su precio oficial en los co- 
mercios legales son de 2.000. 

Anexo alega que la pirateria pro- 
duce enormes perdidas a los fabri- 
cantes legales de soft, que necesitan 
invertir, segun ellos, unos 20 millones 
de pesetas para llevar a cabo la co- 
mercializacion y creacion de un pro- 
grama. 

Esta asociacion tambien insiste en 
que los programas dirigidos al mer- 
cado profesional se venden a 
1 50.000 ptas. la copia, y «caen» en- 
tre 1 00 y 200 mas o menos, mientras 
que en el caso del mercado domes- 
tico, son unas 10.000 a 2.000 ptas., 
como ya hemos dicho. Echen ustedes 
mismos la cuenta. 
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Microsoft 

MULT I PLAN 

PCW8256/CPC6128 

Hoy nace una nueva section en AMSTRAD SEMANAL, dedica ai PCW82S6 y, tan pronto 

como podamos, al PCW8512. La importancia de estos dos modelos es coda vez mas y 

mas significative, porque denotan claramente hacia que parte de la informatica se 

decanta Amstrad: la gestion, pero a un precio tan revolucionario, que todos pueden 

poseer una de estas maquinas, y, si lo desean, muy pronto tambien podrdn inch so 

divertirse con ellas; hay preparado un ajedrez, por ejemplo, francamente bueno. 

En cualquier caso, la serie PCW va a tener un lugar propio en nuestra revista, y 

trataremos de informar a lectores y usuarios de todo lo importante acerca de ella. Para 

comenzar, AMSTRAD SERIE PCW se estrena con uno de los mejores programas para 

microordenador que se ban escrito nunca: Microsoft Multiplan, una boja de calculo 

adaptada a todos los ordenadores personates serios del mundo, y que convierte a la 

afortunada maquina que lo ejecute en una potentisima herramienta de calculo, muy 

simple de usar. 
Mejor que yo, nuestro colaborador Javier Barcelo, experto en software de gestion, les 
introducird en el fascinante mundo del PCW y de Microsoft Multiplan. 
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na hoja de calculo vie- 
ser una hoja cuadriculada, qur admite 
dentro de sus celdas tanto textos, como nume- 
ros y formulas. Su comodidad estrib<- en que 
se pueden relacionar los valores de nnas cel- 
das con los de otras mediante cuakuier for- 
mula, y reflejar los resultados en otras celdas. 
Al cambiar el valor de alguna celda, de una 
u otra manera, cambia el valor de las celdas 
aue dependan de la primera. 

Para el primer Banco de Pruebas dedicado 
al Amstrad PCW8256 se ha elegido el pro- 
grama MULTIPLAN, de la casa Microsoft. 
MULTIPLAN es una hoja de calculo muy po- 
tente y conocida, ya que existen versiones para 
casi todas las marcas de ordenadores perso- 
nales. Esta version viene adaptada para el 
PCW8256 en una cara del disco, y para el 
CPC6128 en la otra cara, arrancdndose el 
programa desde el CP/M PLUS. Para esta 
prueba, se ha utilizado un PCW8256, y des- 
de el principio se ve clara una ventaja: dispo- 
ner de una pantalla mayor, que permite te- 
ner a la vista bastantes mas celdas y colum- 
nas. 

MULTIPLAN viene acompanado de un vo- 
luminoso libro de instrucciones. Estas vienen 
en ingles, excepto la primera pagina del libro, 
que los importadores han tenido el «detalle» 
de traducir al espanol. Toda una hazafia. En 
esta pagina vienen las teclas que equivalen en 
nuestro ordenador, a las indicadas en dicho 
libro, y la manera de cargar el programa. Pa- 
ra los que sepan ingles, el libro de instruccio- 
nes es muy claro, y se aprende a manejar bas- 
tante rapido. Si no se sabe ingles, diccionario 
y paciencia. No obstante, si se ha trabajado 
con otras hojas de calculo, es facil acomodarse 
a esta. 

Lo primero que se observa al cargar el pro- 
grama, es que MULTIPLAN utiliza un forma- 
to de pantalla distinto al de otras hojas de cal- 
culo conocidas. No utiliza el habitual sistema 
de pantallas con menus, que en cada cambio 
de opcion tiene que reconstruir la hoja, con 
la consiguiente perdida de tiempo, sino que 
la mayoria de las opciones se recogen y ma- 
nejan a traves de las tres ultimas Filas de la 
pantalla. 

Al cargar el programa aparece ya la hoja, 
con 27 filas y 8 columnas, naturalmente va- 
cias. El tamafio mdximo de la hoja son 63 co- 
lumnas y 255 filas. Como se ve, mas que sufi- 
ciente para realizar tareas muy extensas. En 
las ultimas filas, aparecen los comandos que 
podemos elegir, la celda donde esta el cursor, 
la cantidad de memoria no utilizada (100%) 
y el nombre de la hoja, que al principio siem- 


pre es TEMP. Los distintos comandos, se pue- 
den seleccionar de dos maneras. La primera 
consiste en pulsar la barra espaciadora hasta 
que el segundo cursor se encuentre en el co- 
mando deseado, y pulsar (INTRO). La segun- 
da, consiste en pulsar la inicial del comando 
deseado. Una vez elegido el comando, se pue- 
de retroceder con la tecla (CAN). 

En cuanto al cursor, este se mueve por la 
hoja automdticamente mediante las teclas de 
cursor. Si la hoja tiene mas celdas de las que 
aparecen en pantalla, al situar el cursor en la 
ultima celda y pulsar la tecla de movimiento 
que le corresponda, se desplazan las demas, 
desapareciendo la primera fila o columna, y 
apareciendo la siguiente por el lado opuesto 
de la pantalla. Hay otras maneras de mover 
mas rapidamente el cursor, sobre todo si la ho- 
ja es muy grande, que se veran posteriormen- 
te. Demos un repaso a los principales coman- 
dos de MULTIPLAN. 



Los primeros 
comandos 


El primer comando de la li'nea, es el coman- 
do ALPHA. Este se utiliza para introducir en 
una celda cualquier texto. Tanto para este co- 
mando, como para casi todos los demas, AN- 
TES de elegir el comando hay que situar el cur- 
sor en la celda deseada. Despues de seleccio- 
narlo, el programa interpreta que se van a in- 
troducir los datos en esa celda. 

El proximo comando es BLANK, que sirve 
para borrar el contenido de una o mas celdas, 
dejandolas en bianco. COPY se usa para co- 
piar los datos de una celda a otras celdas. Es 


muy util, sobre todo para copiar formulas. DE- 
LETE borra el contenido de celdas, borrando 
a su vez las propias celdas. Es decir, ademds 
de borrar el contenido, las siguientes celdas 
se desplazan un lugar, ocupando el de las bo- 
rradas. 

El siguiente en la lista es: EDIT. Sirve para 
editor texto, y principalmente formulas. Si se 
edita texto, este es el unico comando en el que 
tienen que ir entre «comillas». 

FORMAT es uno de los comandos mas com- 
pletes del programa. Tiene multiples opciones, 
que permiten alterar la dimension, el alinea- 
miento, el formato, y la forma de mostrar los 
textos y valores, incluyendo comas, signo y nu- 
mero de decimales y signos particulares, co- 
mo el ($) o (#. 

GOTO permite desplazarse rapidamente 
por la hoja de texto, sobre todo si es muy gran- 
de. Combinando este comando con NAME, 
que permite dar un nombre concreto a una fi- 
la, columna o grupo de filas y columnas, po- 
demos desplazarnos rapidamente con indicar 
dicho nombre. Si hemos creado ventanas, tam- 
bien permite ir instantdneamente al rincon iz- 
quierdo de la ventana que se especifique. 

HELP es un poderoso comando de ayuda, 
que se puede invocar pulsando (?) en cualquier 
momento, incluso dentro de la ejecucion de 
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ALPHA: Introduce texto en Jo -Ida del cursor .^ 
BLANK: Borra la celda o ceiaas qu un up0 de ceiaas ** 
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preservte. 


otro comando. Si se hace a traves de la linea 
de comandos, explica —en ingles— como se 
utiliza esta funcion, y permite revisar toda la 
information disponible. Si se hace pulsando (?) 
dentro de otro comando, explica brevemen- 
te las formas de usar dicho comando, y per- 
mite ver los siguientes o retornar a la hoja en 
el punto donde se dejo. Al seleccionar este co- 
mando, borra la hoja para presentar el texto 
de ayuda. Al acabar, seleccionando RESUME 
se vuelve a la hoja tal como estaba antes de 
seleccionarlo. 

INSERT permite insertar celdas, filas y co- 
lumnas en cualquier lugar de la hoja. 

LOCK es un comando que sirve para prote- 
ger, bloquedndolas, las celdas que se indi- 
quen, del borrado o modification accidental. 
Tambien se puede bloquear una formula, con 
lo que todas las celdas que contengan dicha 
formula se bloqueardn. Si algunas celdas es- 
tdn bloqueadas, el cursor se situard automa- 
ticamente en la siguiente celda sin bloquear 
cuando se intente modificar alguna de estas. 

MOVE proporciona la manera de mover un 
grupo de filas o columnas de una parte a otra 
de la hoja. Utilizdndolo junto con INSERT, po- 
niendo celdas en bianco por medio, se pue- 
den hacer movimientos mas complejos. 

NAME permite dar un nombre a una fila, 
columna o grupo de estas, de manera que tan- 
to en el comando GOTO como en formulas, 
se puede hacer una mention generica a este 
grupo. Resulta especialmente conveniente pa- 
ra editor formulas genericas, y para mezclar 
distintas hojas de cdlculo. 

OPTIONS permite adecuar la hoja de cdl- 
culo a sus necesidades. Pregunta si se desea 
que automdticamente se vuelvan a calcular los 
valores de las formulas despues de una modi- 
ficacion, cosa que en una hoja con muchas for- 
mulas puede resultar mas lenta que hacer el 
cdlculo despues de todas las modificaciones. 
Si se responde que no, cada vez que quera- 
mos recalcular tendremos que ordenarlo, ex- 
cepto cuando utilicemos el comando TRANS- 
FER, que seguird haciendolo automaticamen- 
te. Otra pregunta que hace es ]MUTE? para 
saber si queremos que suene un pitido de alar- 
ma cada vez que el programa detecte un 
error. ITERATION y COMPLETION TEST es- 
tablecen los cdlculos necesarios para obtener 
resultados correctos cuando hay celdas que 
dependen de los resultados de operaciones 
efectuadas en otras celdas. Esto es asf porque 
en este caso, normalmente hace falta un mf- 
nimo de dos cdlculos totales, para que los re- 
sultados sean correctos. 


La impresora 
y multiplan 


Las opciones de impresion se realizan con 
el comando PRINT. Las posibilidades que tie- 
ne incluyen el grabar en disco una version de 
la hoja en formato de impresion, para impri- 
mirlo directamente mas tarde, o usarlo con un 



procesador de texto, etc.; seleccionar mar- 
genes, imprimir las formulas en vez de sus va- 
lores e imprimir la hoja parcial y totalmente. 

Ademds, se puede sacar una copia de la 
pantalla en alta resolution pulsando simultd- 
neamente las teclas (EXTRA) y (IMPS). Se pue- 
de sacar la copia tanto de la hoja en si, como 
del texto de ayuda «Help». 

QUIT sirve para salir al CP/M. No realiza 
ninguna copia de la hoja en curso, y si no se 
ha salvado en disco previamente, se pierden 
los datos. Ojo con el. 

Otro comando curioso es SORT, que permite 
ordenar los datos de las filas o columnas, se- 
gun el contenido de una de ellas, de mayor 
a menor o viceversa. Se pueden hacer todo 
tipo de combinaciones, ordenando primero 
por valor numerico y despues por orden alfa- 
betico, etc... 

TRANSFER es el comando que se encarga 
de gestionar el contacto con el disco. Debido 
a la instalacion realizada para este ordena- 
dor, que carga en el disco virtual M el pro- 
grama, y lo deja como disco asignado, para 
cargar o salvar una hoja en disco es necesa- 
rio anteponer al nombre de la hoja, los sig- 
nos (A:) o utilizer TRANSFER Options para 
asignar los datos al disco A. Por otro lado, 
tambien se puede obtener un catdlogo del dis- 
co, utilizando dentro de las opciones de este 
comando las teclas de movimiento de cursor, 
y luego situar el mismo en el nombre de la hoja 
que se quiera cargar, en vez de teclearlo. En 
la option SAVE, si hay ya grabada una hoja 
con el nombre dado, preguntard si se quiere 
grabar el programa encima de la version an- 
terior, y si se responde afirmativamente, bo- 
rrard la antigua grabando encima la nueva. 
En caso contrario, anula la orden. Ademds, 
permite borrar o cambiar el nombre de cual- 
quier programa en el disco. 

El comando VALU E, permite introducir for- 
mulas o valores numericos en la celda donde 
se encuentre el cursor. Para introducir las for- 
mulas, no hace falta teclear la referencia de 


cada celda. Simplemente situando el cursor en- 
cima de una celda, aparece escrita su referen- 
cia, y solo hace falta poner los signos de ope- 
ration. 

Podemos crear diversas ventanas dentro de 
la hoja, hasta un mdximo de ocho, mediante 
el comando WINDOW. Se puede optar por 
crear las ventanas con un borde dibujado o 
sin el. Con el borde, la presentation resulta 
muy mejorada. Pero la principal ventaja de 
disponer de diversas ventanas es que el ma- 
nejo de los datos en esas ventanas resulta ade- 
mds de rdpido, mds prdctico. Se pueden mo- 
ve: las ventanas como se quiera, y en hojas 
grandes esta facultad se hace agradecer. 

El ultimo comando del que disponemos es 
XTERNAL. Este comando permite anadir a la 
hoja «activa» que esta en pantalla, datos de 
hojas que esten grabadas en el disco. Tambien 
permite crear una relation de dependencia en- 
tre las hojas grabadas en disco y la de la pan- 
talla, de manera que al actualizar determina- 
dos datos de la hoja en pantalla, tambien se 
actualicen en alguna del disco. A la hora de 
utilizar esta funcion, resulta muy util haber de- 
finido las celdas que se van a trasvasar de una 
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hoja a otra con algun nombre en concrete Asi, 
el hacer referenda a estas resulta mucho mas 
fdcil que con su fila y columna. 


Funciones 
relacionales 


Hasta aqui se han visto todos los comandos 
que se pueden utilizar en este programa. Pe- 
ro antes de concluir, hay que senalar otra 
magnifica caracteristica del mismo. Ademds de 
las operaciones aritmeticas normales, MULTI- 
PLAN implementa una serie de funciones re- 
lacionales que afiaden potencia, si cabe, a la 
hoja. Explicarlas todas resultaria demasiado 
extenso, pero en el cuadro N.° 2 se puede ver 
la lista de ellas. Como el funcionamiento de 
la mayoria es muy similar al que hace el Ba- 
sic, daremos un repaso solo a las que sean ex- 
clusivas de 


Mi 


\ULTIPLAN: 

— ATAN.: Calcula el arco tangente de un 
argumento. 

— AVERAGE.: Calcula la media de los da- 
tos indicados. 

— COLUMN.: Retorna el numero de la co- 
lumna donde aparezca la formula que se le 
indique. 

— COUNT.: Cuenta el numero de celdas 
que tienen argumento numerico. 

— DOLLAR.: Convierte un No. a formato 
de dolor. (2.71 5 =$2.72). 

— INDEX.: Retorna el valor de la celda in- 
dicada. 

— ISERROR.: Retorna el valor True si de- 
tecta algun error. 

— ISNA.: Detecta el valor #N/A. 
(#N/A=No disponible). 

— LOOKUP.: Busca un valor determinado 
en un grupo de celdas. 

— NA.: Marca determinadas celdas con el 
valor #N/A. 

— NPV(R,L).: Da el valor del sumatorioen- 
tre 1 e i de la formula: Li/(1 +r)l 

— REPT.: Repite un texto un numero deter- 
minado de veces. 

— ROW.: Retorna el numero de la fila don- 
de aparezca la formula que se indique. 

— SIGN.: Retorna el signo del argumento 
que se le indique. 

— STDEV.: Calcula la desviacion standard 
de los valores que se le indiquen. 

Para concluir, estamos ante una aplicacion 
verdaderamente profesional. Aunque este re- 
paso a sus funciones haya resultado un poco 
farragoso, no es necesario dominarlo todo pa- 
ra trabajar con MULTIPLAN. De hecho, las 
operaciones mas usuales se aprenden con una 
facilidad pasmosa. Aprender a realizar una 
hoja de calculo normal para un usuario no ex- 
perto es cosa de un rato, y luego, con la prdc- 
tica, es cuestion de complicar las cosas poco 
a poco. Su potencia alcanza unos limites diff- 
cilmente alcanzables, se puede hacer casi to- 
do. (Excepto, quiza, jugar a los marcianos. . .). 



Las posibilidades externas que incluye, facili- 
tan enormemente la creacion y mantenimien- 
to de todo tipo de tablas. Realmente un buen 
programa. Lo unico que exige cierta atencion 
es la adaptacion del teclado, que al principio 
hace necesario tener delante la primera hoja 
del manual. Pero tanto esto como las demds 
facetas de uso del programa se aprenden des- 
pues de haberlo usado unos dfas. Y lo que no 
se sepa con certeza, siempre se puede ver ex- 
plicado en los mensajes de ayuda «HELP.» 
Resumiendo, los usuarios de Amstrad 
PCW8256 y CPC61 28 tienen a su disposicion 
una gran hoja de calculo. 


LlSTA DE FUNCIONES QUE 
SE PUEDEN USAR EN FORMULAS 



ABS. 

COLUMN. 

EXP. 

INDEX. 

LEN. 

MAX. 

NA. 

PI. 

SIGN. 

SUM. 

ATAN. 

COUNT. 

FIXED. 

ISERROR. 

LOG10. 

MIN. 

NPV. 

ROUND. 

SORT. 

TRUE. 


AND. 

COS. 

FALSE. 

INT. 

LN. 

MID. 

NOT. 

REPT. 

SIN. 

TAN. 

AVERAGE. 

DOLLAR. 

IF. 

ISNA. 

LOOKUP. 

MOD. 

OR. 

ROW 

STDEV. 

VALUE. 


1 EJEMPLO DE HOJA EN EL PROCESADOR POR PRINT FILE 

Marca 

Modelo 

Motor Preeio T. % 

En. 

Entrada Aplaz. % In 

Volkswagen 

Polo Bunny 

1,043 

827,792 

30 

248,338 579,454 

Seat 

Ibiza Junior 

1,193 

873,231 

30 

261,969 611,262 

Fiat 

Uno S-60 

1,116 

998,830 

30 

299,649 699,181 10 

Volkswagen 

Polo Clasic 

1,272 

1,035,538 

30 

310,661 724,877 

Austin 

Metro MG 

1,275 

1,071,563 

30 

321,469 750,094 

Opel 

Corsa GT 

1,247 

1,094,588 

30 

328,376 766,212 

Renault 

R-5 GTS 

1,397 

1,107,935 

30 

332,381 775,555 

Seat 

Ibiza GLX 

1,461 

1,205,696 

30 

361,709 843,987 

Ford 

Fiesta XR2 

1,597 

1,215,354 

30 

364,606 850,748 10 

Renault 

R-llTSE 

1,397 

1,265,524 

30 

379,657 885,867 

Lancia 

Y-10 Turbo 

1,049 

1,275,470 

30 

382,641 892,829 

Peugeot 

205 GTX 

1,592 

1,279,460 

30 

383,838 895,622 
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Si eres lector habitual 
de esta revista 



Te estoy esperando. 
Tengo muchas cosas que 
contarte... y muy interesantes. 
De momento, te propongo la 
posibilidad de AHORRAR 
mas de 1.000 ptas. y, ademas, 
con un poco de suerte, GA- 
NAR UNA VESPINO <; Que te 
parece? Pues esto es solo un 
avance. Cuando me llames te 
contare mas cosas que segu- 
ro te gustaran. 
Pero no te demores, porque 
a una mujer nunca se le hace 
esperar. Tienes de plazo has- 
ta el 31 de marzo. Despues, 
habras perdido tu oportuni- 
dad. 


HOBBY PRESS,S.A. 


(91) 654 32 111 


Mm bom 



Muchas y variadas son las formas de medir, el sistema que hoy proponemos desde esta 

seccion, no es todo lo pacifico que pudieramos desear, aunque si, lo suficienremente 

original como para que merezca nuestra atencion. 



metodo en cuestion es 
muy sencillo, basta disponer de un canon co- 
locado a la distancia adecuada, para despues 
ir disparando con el sobre un cuadrado, don- 
de se halla inscrita la superficie a medir. Des- 
pues de haber lanzado el numero elegido de 
obuses, basta con acercarnos al campo, con- 
tar los que han caido fuera y dentro del re- 
cinto y ver la relacion que existe entre estos, 
la cual nos llevara a un area aproximada. El 
error estard en funcion de lo desvergonzado 
que haya sido el azar con nosotros y natural- 
mente en base al numero de obuses. Pero, 
£por que no lo comproeban por si 
mismos? 

10 Nombre del programa. 

20 Definicion de la funcion cir. Si al eva- 
luar la funcion en un punto (x, y), esta vale 0, 
entonces el punto pertenece a la circunferen- 
cia. 

30-40 Definimos dos ventanas. 

60 Borramos ambas para poner los colo- 
res. 

80-120 Entrada del dato num., correspon- 
diente al numero de obuses que queremos lan- 
zar. Imprimimos las distintas informaciones que 
van a ir apareciendo en pantalla durante la 
ejecucion. 

1 30-1 50 Mediante un for-next dibujamos 
la circunferencia en pantalla. 

160-170 Dibujamos el cuadrado donde 
se inscribe el circulo, superficie sobre la que 
realizaremos nuestros disparos. 

1 80-240 Bucle principal donde se produ- 
cen los disparos, evaluan y dibujan. Veamos- 
lo paso a paso. 

1 90 Imprimimos el numero de disparo rea- 
lizado en la ventana informativa numero 1. 

200-210 Se sacan al azar dos numeros 
entre y 1 que se almacehan en x, y respecti- 
vamente. En a y b se cargan estos valores tras- 
ladados a nuestro sistema de referencia com- 
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prendido entre —1 y 1 para la coordenada 
horizontal y vertical. 

220 Ponemos el impacto en pantalla, no- 
tese que ha habido que realizar una traslacion 
al punto (350,0) y una ampliacion de 200. 

230 Evaluamos la funcion en el punto (a, 
b). En el caso de que el valor de la funcion sea 
positivo, el punto esta fuera y dentro en caso 
contrario. Incrementamos el contador FUE, 
que Neva la cuenta de los caidos fuera o el con- 
tador DEN, en el caso de que hayan caido 
dentro. A la vez, actualizamos la ventana in- 
formativa 1. 

A partir de la linea 250 se encuentra el fi- 


nal del programa, donde se muestran los re- 
sultados obtenidos. 

260 Se imprime el area calculada. Como 
el cuadrado tiene un area de 4 y la relacion 
entre el area del circulo y el area del cuadra- 
do debe aproximarse a la relacion de dispa- 
ros caidos dentro y numero total de disparos; 
calculamos el area del circulo mediante la for- 
mulita 4*DEN/NUM. 

280 Se imprime el area real, calculada me- 
diante la archiconocida formula del area del 
circulo piV. 

300 Se imprime el error, esto es, la dife- 
rencia entre el area calculada y el area real. 


~\J 
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mpezaremos dandole 
buenas noticias. Esta semana vamos a volver 
a encontrarnos con nuestro viejo comando 
SOUND en su forma mas basica. 


" 


SI NICESITA UNA NOT A, 
PONGASE A LA COLA 


El Amstrad posee varios canales de 

sonido, y gestiona eficazmente las 

posibles colisiones enfre las notas 

almacenadas en cada una, para asi 

simultanear el sonido que se espera que 

produzca con otras tareas. Programacion 

explica como. 


Pero, i<\ue efecto produce?: 

SOUND 7, 200, 100, 7 

Pruebelo y lo vera. Si puede encontrar al- 
guna diferencia entre este ultimo sonido y el 
producido anteriormente, con la puesta en 
marcha de tres comandos de sonido, le ase- 
guramos que tiene bastante mejor oido que 
nosotros. 

El caso es que 

SOUND 1, 200, 100, 7: SOUND 2, 200, 

100, 7: SOUND 4, 200, 100,7 
y SOUND 7, 200, 100,7 

producen el mismo sonido. La pregunta es: 
jcomo? Debe ser algo que hace el valor 7 en 
el parametro de canal del ultimo comando 
SOUND, pero $que? 

Ante todo, una punualizacion. Solamente 
hay tres canales y tenemos asignado un nu- 
mero a cada uno de ellos. Entonces, £que 
ocurre? gComo podemos tener tres notas so- 
nando al mismo tiempo con un unico coman- 
do SOUND? 

Bueno, vamos a echar un vistazo al para- 
metro de canal de: 

SOUND 7, 200, 100,7 

otra vez. Observe que el sonido sale por los 
canales A, B y C. Ya sabemos que los nume- 
ros asignados a cada uno de ellos son 1, 2 y 
4 respectivamente. Y, £adivina cudnto su- 
man 1+2 + 4? 

Si, este es el 7 que hemos encon- 
trado en el parametro de canal del 
solitario, pero productivo, comando 
SOUND. 

Segun parece desprenderse de es- 
to, cuanao necesitemos un comando 
SOUND para que suene una nota por 
mas de un canal, sumaremos los nu- 
meros asignados a cada uno de ellos 
y asi obtendremos uno nuevo, que se 
corresponda a la combinacion de los 
tres canales. 

Cuando el Amstrad encuentre este nu- 
mero, hard lo que usted desea: la nota sona- 
rd por mds de un canal y producird el efecto 
musical apropiado. 


Fabriquemos uno con: 

SOUND canal, tono, duracion, volumen 

ue ignora las envolventes y el ruido, de mo- 

o que las cosas volverdn a ser mds sencillas. 

Pero tambien nos llegan malas nbticias. El 
parametro de canal no es la mosquita muer- 
ta aue dijimos. 

No obstante diremos que, por el momento, 
va a seguir siendolo; asi que volvamos a nues- 
tra antigua formula en la que un parametro 
de canal 1 producia un sonido con el canal A, 
mientras que con el valor 2 se usaba el canal 
B y con 4 la nota sonaba por el C. 

Vamos a producir un sonido por el canal A 
con: 

SOUND 1,200, 100,7 

Escucharemos una nota de tono 200 que du- 
ra un segundo y suena a todo volumen. Para 
que la nota se oiga a traves del canal B nece- 
sitarfamos usar: 

SOUND 2, 200, 100,7 

y el canal C: 

SOUND 4, 200, 100,7 


Sonido al 
unisono 


£No es todo esto un tema impor- 
tant©? Usando los tres comandos uno a con- 
tinuacion del otro se puede pensar que: 

SOUND 1, 200, 100, 7: SOUND 2, 200, 
100, 7: SOUND 4, 200, 100,7 

producird la misma nota al mismo tiempo por 
cada uno de los tres canales. Si ha sido asi, 
iacerto! 
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En el caso de: 

SOUND 7, 200, 100,7 

el micro encuentra un 7 en el parametro de 
canal, e inmediatamente descubre, que tiene 
que hacer algo diferente a lo que esta acos- 
tumbrado cuando le Mega 1, 2 6 4. Ya que es 
un ordenador dominador de las matemdticas, 
descompone el numero 7 en la suma 1 + 2 + 4 
correspondiente y escucharemos la nota por 
los tres canales A, B y C. 

De esta forma, sumando los pardmetros de 
canal, podemos fabricarnos un comando 
SOUND que haga las funciones de dos o tres. 

Para que suene una nota por los canales A 
y C al mismo tiempo, necesitamos usar un pa- 
rametro que valga 5 (1 +4) de modo semejan- 
te a: 

SOUND 5, 300, 50, 6 

mientras que para ofr la misma nota por A y 
C utilizaremos un parametro igual a 3 (1 + 2). 
La tabla 1 muestra como los distintos valo- 
res del canal producen diferentes combinacio- 
nes de los canales por donde sale el sonido. 


A la cola 


Por ahora vamos a dejar todas estas varia- 
ciones de sonido y volvamos a nuestro senci- 
llo comando SOUND. 

Intente introducir en el ordenador: 

SOUND 1,200, 100, 7: SOUND 1,300, 
100,7 

y vea, o mejor dicho, escuche lo que ocurre. 
Hemos conseguido obtener durante un segun- 
do una nota con un tono de 200 seguida de 
otra de un segundo con 300 de tono. Es mas 
o menos lo que esperdbamos que ocurriera. 

Al Amstrad le llega el primer comando 
SOUND, lo procesa y comienza a reproducir 
la nota. 

Mientras esta suena, le llega al micro el se- 
gundo comando SOUND y tambien lo proce- 
sa. Pero ahora tiene un problema. 

La ultima instruccion SOUND le dice que to- 
que una nota por el canal A pero, a pesar de 
estar en el rdpido mundo de la microinformd- 
tica, la primera sigue sonando todavfa. 

£<3ue puede hacer? jlnterrumpird la pri- 
mera nota? O jalgo impedird que la ultima 
suene hasta que la primera haya terminado 
y procese el segundo SOUND? 

La respuesta es que el Amstrad deja que 
la nota siga sonando durante todo el tiempo 
de duracion estipulado y guarda la segunda 
en lo que llamamos cola de espera. 

Cuando acaba la primera nota, el micro mi- 
ra lo que hay en la cola de espera, encuen- 
tra la segunda alii almacenada, y la reprodu- 
ce. 

Lo bueno de esto es que el programa pue- 
de continuar haciendo otras cosas y no espe- 
rar a procesar el comando SOUND. 



Por si acaso no nos ha seguido, pruebelo te- 
cleando: 

SOUND 4, 1000,500,5 

SOUND 4, 100,500,5 

PRINT «EI Amstrad esta haciendo otra 

cosa» 

Aqui cabria esperar que, por el orden de 
las lineas, se escuchara el primer sonido, des- 
pues el segundo y a continuation apareciera 
el mensaje. 

Realmente lo que ocurre es que el micro, 
procesa y comienza a ejecutar el primer soni- 
do, coloca al segundo en la cola de espera del 
canal C y se va a la instruccion siguiente. 

Queremos decir con esto que escucharemos 
la primera nota, aparecera el mensaje y solo 
cuando termine su duracion podremos oi'r la 
segunda. 

La cola de espera, se utiliza para almace- 
nar alii sonidos, mientras el micro continua 
procesando cualquier sentencia Basic que le 
siga. 

Hay una cola de sonido independiente pa- 
ra cada canal, que no tiene que ver absolu- 
tamente nada con las otras. 

Sin embargo, estdn limitadas en cuanto a su 
longitud. Solo hay sitio para la nota que esta 
sonando y para cuatro mas almacenadas en 
la cola de espera. A partir de aqui encontra- 
remos problemas, tal y como nos muestra el 
programa 1. 


Programa una 


Como podemos ver el bucle FOR... NEXT 
esta intentando hacer sonar diez notas, una 
detras de otra. Despues de cada nota se im- 
primird un mensaje. 

Parece muy sencillo pero si espera que sue- 
ne una nota, aparezca un mensaje, luego otra 
nota, despues otro mensaje, se sentird defrau- 
dado. 

La primera vez que recorre el bucle el Ams- 
trad reproduce la nota y saca un mensaje. 

Sin embargo, durante las cuatro veces si- 
guientes que nace el bucle, la primera nota no 
ha dejado aun de sonar. 

Lo que ocurre entonces, es que las cuatro 
producidas por estos ciclos, se van colocan- 
do en la cola de espera y alii aguardan que 
llegue su oportunidad. 

Con el comando PRINT no hay problemas. 
No existe ninguna cosa rara que detenga la 
aparicion de mensajes, asi que de esta forma 
conseguiremos que el primero de los cinco 
aparezca jantes que haya terminado la pri- 
mera nota! 

Seguro que ahora el Amstrad puede te- 
ner problemas. Esta sonando una nota y hay 
otras cuatro mas en la cola de espera hasta 
que les llegue su hora de sonar. 
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La espera estd llena, no hay mas espacio li- 
bre, y a pesar de todo en la sexta repeticidn 
del bucle, la linea 30 le dice jque haga ruido! 
Algo hay que hacer. 

La solucion es bien sencilla. El programa ha- 
ce temporalmente una parada esperando has- 
ta que se produzca un espacio en la cola. 

Entonces, cuando deja de sonar la primera 
nota la segunda sale del estado de espera y 
la comenzamos a oir. Las tres notas siguien- 
tes se corren hacia el principio de la cola de- 
jando un espacio libre al final. 

El Amstrad puede ahora llevar hasta allf 
la sexta nota colocdndola al final de la espe- 
ra e imprimir el mensaje apropiado. 

Pero seguimos teniendo el mismo problema 
que antes. La siguiente vez que repitamos el 
bucle, el micro se encontrard un nuevo 
SOUND que procesar y no tiene sitio donde 
guardarlo. 

De nuevo el programa hard un alto hasta 
que encuentre un espacio libre. 

Podemos ver que estas paradas y arranca- 
das explican el porque los cinco primeros men- 
sajes aparecen instantdneamente mientras que 
los cinco restantes van saliendo en intervalos 
de un segundo tal y como marca la duracidn 
de cada una de las notas. 

Como antes dijimos, hay una cola de espe- 
ra para cada canal y cada una de ellas pue- 
de contener cuatro notas ademds de la que 
estd sonando en ese momento por su corres- 
pondiente canal. 

La espera de cada una de ellas funciona in- 
dependientemente. 

Aunque asi sea, les comunicamos que cuan- 
do el Amstrad este intentando colocar una 
nota en la cola de espera de un canal que ya 
esta lleno, se produce una interrupcion del pro- 
ceso hasta que aparezca un espacio libre pa- 
ra ella. 

En este sentido si existen problemas en uno 
de los canales puede que se desordene el efec- 
to que se ha de producir en cualquier otro. 

El programa 2 nos muestra como puede so- 
nar una nota por un canal aunque otro tenga 
la cola de espera llena. ^Puede explicar 
por que? 


Programa dos 


Dejemos este tema por el momento, veamos 
el Programa. 


Programa tres 


Estd formado por cuatro notas «afina- 
das». Se producen una tras otra por el ca- 
nal A y duran un segundo cada una. Toda la 
melodia tarda en sonar, por tanto, cuatro se- 
gundos. Ahora «incline» su oido ante el en- 
canto producido por el programa 4. 


Programa cuatro 


Esta compuesto por tres notas que sonardn 
seguidas a traves del canal B. Las dos prime- 
ras duran un segundo cada una, mientras que 
la otra tarde dosen oirse completamente. De 
nuevo, la melodia entera dura cuatro segun- 
dos. 

En provecho de la armonia y para entusias- 
mar a los amantes de la musica de todas par- 
tes, vamos a cambiar las dos «tonadas». 
Una forma de hacerlo es tal y como nos lo 
muestra el programa 5. 


Programa cinco 


La organization de los comandos SOUND 
refleja la estructura que queremos dar a esta 
combination. La linea 20 hace comenzar una 
segunda nota por el canal B, mientras la Ifnea 
30 pone en marcha otra, que va a sonar du- 
rante un segundo por el canal A. 

Puesto que ambas estdn en diferentes cana- 
les, no hay ningun obstdculo para que las es- 
cuche simultdneamente, y asi consigamos una 
agradable melodia. (Bueno, al menos a no- 
sotros nos lo parece). 

Las dos lineas siguientes colocan de nuevo 
una nota en cada canal, con la linea 60 po- 
nemos una nota final de dos segundos en el 
B mientras que las lineas 70 y 80 afiaden dos 
notas de un segundo en el canal A. 

Toda la melodia durard cuatro segundos y, 
como solamente hemos guardado tres y dos 
notas respectivamente en cada canal, no ten- 
dremos ningun problema con las colas de es- 
pera. 

El programa 6 toca exactamente la misma 
cancion aunque los comandos SOUND esten 
colocados en diferente orden. 


Programa seis 


En el listado vemos que primero encontra- 
mos todos los sonidos que han de salir por el 
canal A y a continuacion todos los que ha de 
producir el B. 

El micro trabaja en la forma habitual con las 
cuatro primeYas notas, tocando la primera y 
colocando las otras tres en la cola de espera 
del canal B. 

'Todo esto ocurre con tanta rapidez que 
oimos comenzar las dos notas al mismo tiem- 
po en los canales A y B, aunque las senten- 
cias que las producen estdn cuatro lineas mds 
abajo. 

Para ser mds exactos, el Amstrad ha ga- 
nado tiempo procesando las lineas 30, 40 y 
50 colocando esta nota en la cola de espera 
antes de llegar a la primera del canal B y re- 
producirla. 

Esto significa que las notas no comienzan 
exactamente a la vez. Hemos de confesarle 


Tabla I: COMBINACIONES DEL 
PARAMETRO DE CANAL 


PARAMETRO 
DE CANAL 

CANAL 

A 

B 

C 

1 
2 
3 
4 
5 
6 
7 

X 
/ 
X 
/ 
X 
/ 
X 

/ 
X 
X 
/ 
/ 
X 
X 

/ 
/ 
/ 

X 
X 
X 
X 


X Canal usado. I Canal silencioso 

que nosotros no podemos apreciar la diferen- 
cia y dudamos que alguien sea capaz de ha- 
cerlo. 

Anteriormente hemos puesto un ejemplo de 
como demasiados SOUNDs, seguidos pueden 
estropear un programa basic, produciendole 
una pausa. 

El programa 7 muestra como el Amstrad 
se pone de acuerdo con el basic para trasto- 
car el modelo de comandos SOUNDs que, jun- 
tos, van a producir melodias. 


Programa siete 


Vera, que exceptuando la linea 40, es exac- 
tamente igual al programa anterior. Sin em- 
bargo, la melodia se ha destruido. 

Lo que ha ocurrido es que el micro ha pro- 
cesado las lineas 20 y 30, haciendo sonar una 
nota y colocando la siguiente en la cola de es- 
pera del canal A. 

A continuacion alcanza el bucle retardador 
y lo repite 200 veces sin hacer nada pero con- 
sumiendo tiempo. 

Una vez ha terminado el bucle, el progra- 
ma ejecuta las lineas 50 y 60 colocando estas 
notas en espera. 

Finalmente el micro, encuentr a la linea 70 
y hace que comience a sonar la primera nota 
en el canal B, colocando la segunda a la cola 
en dicho canal. 

El problema se presenta porque la primera 
nota del A ha estado sonando durante algun 
tiempo antes que comenzara la primera del 
B. 

La otra vez conienzaron al mismo tiempo (o 
tan cercanas que no habia diferencias) . Aho- 
ra, sin embargo, el bucle retardador ha retra- 
sado tanto la ejecucion del programa que en 
el momento en que el micro encuentra la li- 
nea 70, ya todo estd desfasado. 

Intente cambiar la longitud (numero de gi- 
rosj del bucle retardador, para ver el efecto 
que produce. 

Podriamos pensar: «Bueno, pues no coloca- 
remos el bucle retardador en nuestras condo- 
nes y todo estard de nuevo en orden. » Es una 
buena deduccidn, pero recuerde que solo po- 
demos tener cinco notas al tiempo en cada ca- 
nal, para que no causen problemas. 
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No obstante, algunas buenas composicio- 
nes, tienen algo mas de cinco notas, asf que 
si queremos un acompanamiento musical a 
nuestros programas, tenemos que coger cin- 
co notas, hacer cualquier otra cosa, y volver 
a tomar otras cinco cuando aparezca un es- 
pacio libre en la cola de espera. 

El bucle de retardo del programa 8 es un 
simbolo de esas «otras cosas». 

Como puede ver, mientras el programa se 
entretiene en hacer algo diferente, la melodia 
puede terminarse. No nos preocupemos, sin 
embargo, ya que no vamos a quedarnos atas- 
cados con un repertorio de cinco notas unica- 
mente. 

El programa 8 nos ensena como solucionar 
el problema. 


Programa oeho 


Como puede escuchar la melodia estd intac- 
ta, pese al bucle retardador. El secreto se en- 
cuentra en los extranos pardmetros de canal 
que hemos puesto. 

^Recuerda que podemos sumar 
nuestros numeros de canal para for- 
mer uno nuevo con mas posibilida- 
des? Vamos a utilizar la misma clase de tec- 
nica para asegurarnos que las notas estdn so- 
nando al unisono por los diferentes canales. 
Lo que necesitamos es sumar 8, 1 6 6 32 al pa- 
rdmetro apropiado. 

Suponga que necesitamos una nota por el 
canal A que empiece a sonar exactamente al 
mismo tiempo que otra de diferente tono por 
el canal B. 

Lo que hacemos para provocar la «cita» de 
una nota con otra es sumarle el numero apro- 
piado al pardmetro de canal. 

Para conseguir que una nota espere hasta 
que este preparada otra en el canal B surna- 
mes 16 al pardmetro. 

Buscamos una nota que saliendo por el ca- 
nal A coincide con otra que lo hace por el B, 
asi que sumamos 16 y 1 para obtener como 
nuevo parametro el valor 17. 

Por tanto: SOUND 17, 100, 100,5 

Produce una nota que sonard, solo cuando 
haya otra en el B. 

Es bastante simple, asi que, por si no lo ha 
hechoteclee: SOUND 17, 100, 100,3 

y escuche lo que ocurre. 

No parece que ocurra nada, ya que hemos 
sumado 16 al pardmetro y asi el micro sabe 
que ha de esperar alguncrnota por el canal 
B y no hay ninguna, todavia. Asi que vamos 
a proporcionarle una nota a dicho canal con: 
SOUND 2, 4000, 100,5 

Seguramente le habrd decepcionado que lo 
unico que escuchamos es una larga nota por 
el canal B. La nota mas aguda que estaba es- 
perando en el canal A sigue sin aparecer a pe- 
sar que de hayamos proporcionado una nota 
al B. £Hemos hecho algo equivocado? 


Seamos sinceros, la culpa es nuestra. Hemos 
sumado 16 al pardmetro del canal de la pri- 
mera nota, para decirla que espere a que lle- 
gue otra al B. Pero no hemos indicado «na- 
da» a esta ultima. 

Tenemos que hacer que las dos notas que 
hemos «citado» se reconozcan entre si. 

No solo es necesario que hayamos sumado 
a la primera un valor al pardmetro de canal 
sino que tenemos que hacer lo propio con la 
segunda. 

Es algo parecido a dos personas que van a 
encontrarse por primera vez. Una llevara un 
bombin y la otra un ejemplar de Microhobby 
Amstrad. 

En el ejemplo anterior, la nota del canal A 
llevaba un bombin, pero la del canal B no te- 
nia un ejemplar de la revista. Como resulta- 
do «pasaron» una de la otra. 

Lo que tendriamos que haber hecho es ana- 
dirle un 8 al pardmetro de la nota del canal 
B. Si nuestras matematicas son correctas 2 + 8 
son 10, asi que: 

SOUND 10,4000, 100,5 

producird no solo una nota grave sino que 
tambien hard que la nota aguda del canal A 
saiga de su escondite. 

Pruebelo y vera que es cierto. 

Resumiendo, dos notas pueden comenzar al 
mismo tiempo o quedar «citadas» anadien- 
do los valores apropiados a sus pardmetros 
de canal. 

Para conseguir que una nota espere a que 
aparezca otra en el canal A, anadiremos B. 

Si nos queremos citar con otra que saiga por 
el canal B sumaremos 16 mientras que para 
«quedar» con el canal C tendremos que ana- 
dir 32. 

La tabla 2 resume la situacion. 

TABLA II: FACTORES DE CITA 


SUMA 

CITA CON 

8 

16 
32 

Canal A 
Canal B 
Canal C 


Usdndola, podemos tener una nota en el ca- 
nal A coincidiendo con una en el C con las ins- 
trucciones: SOUND 33 ,600 ,100, 7 
SOUND 12, 3500, 100,7 

Igualmente, para hacer que se unan notas 
en el B y en el C usamos: 

SOUND 34, 12, 100,7 
SOUND 20, 3750, 100,7 

Utilizando nuestro nuevo descybrimiento, 
seriamos capaces de ver ahora como funcio- 
nan los 1 7s y 1 0s del programa 8 para supe- 
rar el efecto del bucle retardador. 

La nota del canal A no puede comenzar a 
sonar hasta que se encuentre otra del canal 
B con la que se habia citado. Esto quiere de- 
ar que las notas permanecen en fase. 

Y esto es todo por esta semana. Examina- 


remos los pardmetros del canal con mas de- 
talle la proximo vez que nos reunamos. 

Hasta entonces puede entretenerse viendo 
como funcionan en la prdctica los valores que 
nos dan las tablas I y II. 

Puede resultar que le sirva de mucha ayu- 
da tener asignada la tecla ENTER a: 

KEY 139, «SOUND 1 35, 0, 0, 0» + CHR$ 
(13) 

Cuando, ahora los canales de sonido se nos 
escapen de la mono, pulsamos la tecla ENTER 
y todo lo que nos sobra lo tiramos al cubo de 
la basura. Explicaremos por que en un futuro 
articulo. 

Y, cuando este un poco mds familiarizado 
con las «cita$» sera capaz de ver por que 
el programa 8 aguanta un poco de «over- 
kill». Diviertase. 


L 

ROGRAMAS 



^ mm ^ mm ^^^^ mmm 

1 

10 Rm PROGRAMS 1 


20 FOR nota-l TO 10 


30 SOUND 1 , 100*nota. 100.7 


40 PRlNT"Nota numero"nota 


50 NEXT nota 


60 PR1NT"E1 Proqrama ha termi nado. . 


70 PRlNT"pero la musica continue." 


10 REM PROGRAMA II 


20 SOUND 1.100,5000.7 


30 FOR nota=l TD 10 


40 SOUND 2, 100«nota, 100,7 


SO PRINT"Nota ntimero"nota 


60 NEXT nota 


10 REM PROGRAMA III 


70 SOUND 1 ,23", 100,5 


30 SOUND 1. 190. 100,5 


40 SOUND 1.213. 100,5 


50 SOUND 1,239, 100.5 


10 RFM PROGRAMA IV 


20 SOUND 2, 1 19, 100,7 


30 SOUND 2. 127. 100,7 


40 SOUND 2. 159,200,7 


10 REM PROGRAMA V 


70 SOUND 2. 119. 1(10,7 


30 SOUND 1 ,739. 100,5 


40 SOUND 7. 127. 100,7 


50 SOUND 1, 190, 100,5 


V> FOUND 2, 159,200,7 


70 SOUND 1,213, 100.5 


80 SOUND 1 ,739, 100,5 


10 REM PROGRAMA VI 


20 SOUND 1.239, 100,5 


30 SOUND 1, 190. 100.5 


40 SOUND 1.213, 100.5 


50 SOUND 1.239. 100.5 


60 SOUND 2, 119. 100,7 „ 


70 SOUND 2, 127, 100.7 


BO SOUND 2, 159,200.7 


10 REM PROGRAMA VII 


20 SOUND 1.239, 100.5 


30 SOUND 1, 190. 100,5 


40 FOR retardo-1 TO 200: NEXT retard 


50 SOUND 1,213, 100,5 


60 SOUND 1,239, 100.5 


70 SOUND 2, 1 19, 100,7 


80 SOUND 2, 127. 100,7 


90 SOUND 2, 159,200,7 


10 REM PROGRAMA VIII 


20 SOUND 17,239,100.5 


30 SOUND 17,190,100.5 


40 FOR retardo- 1 TO 200: NEXT retard 


50 SOUND 17,213,100,5 


60 SOUND 1,239, 100,5 


70 BOUND 10, 119, 100,7 


BO SOUND 10, 127, 100,7 


90 SOUND 10,159,200.7 ! 




FlLEPLUS 

FUeplus es una interesante mezcla de 
agenda, base de datos y prog r a ma de 

«Mailing». 

Est a pensado para manejar 

eficientemente la informacion, dividida 

en varios campos; nos permite 

clasificarla, alterarla, y sacarla par 

impresora, tanto en forma de fichas 

como de mailing. 

CONSULTA SECUENCIAL: Te- 
clear directamente TODAS y el orde- 
nador nos mostrard desde la prime- 
ra hasta la ultima, pidiendo autori- 
zacion para pasar de una a otra o 
para volver al Selector Maestro. 

4.M0DIFICACI0NES. Mediante la 
referenda obtenemos en pantalla la 
ficha a modificar, tecleando las dos 
primeras letras del campo erroneo 
automaticamente borrard los datos 
de ese campo y podemos teclearlo 
de nuevo, una vez corregido nos pe- 
dira conformidad a la ficha o conti- 
nuar modificandola tantas veces co- 
mo necesitemos. Una vez conforme, 
pasaremos al Selector Maestro del 
modo descrito en los casos anterio- 
res. 

5. GRABAR FICHERO. Si hemos 
creado un nuevo fichero o hemos 
tratado un fichero ya existente en el 
disco, necesitamos su actualizacion 
en el disco. Si hemos creado un nue- 
vo fichero, el programa nos pedira 
directamente un nombre para guar- 
darlo en diseno; en caso contrario 
primero nos dird si queremos que lo 
actualice con el mismo nombre que 
tenia o queremos darle otro distinto. 
A partir de este punto todas las ope- 
raciones son automdticas. 

6. LEER FICHERO. Si existe un pro- 
grama en memoria del Amstrad 
nos avisa si queremos despedirlo an- 
tes de leer otro o siendo una equivo- 
cacidn queremos actualizarlo antes 
en el disco; desde aqui las operacio- 
nes son como en el caso anterior. 


ste programa, es- 
td realizado con la intencion de po- 
der manejar gran diversidad de cam- 
pos y utilizar posteriormente solo los 
que necesitemos en cada momento. 

Tres closes de listados por impre- 
sora. 

Dos tipos de impresion de etique- 
tas. 

Facilidad de instalar emisidn de re- 
cibos. 

Su manejo es muy simple y no ofre- 
ce mas atenciones, que las que por 
bloques detallamos a continuacion. 

1. ALTAS. Nos pide la referencia, 
que sera por donde trataremos pos- 
teriormente la ficha, de existir dupli- 
cidad la rechazard y pedira otra. 
Una vez completa, nos pide confor- 
midad, de no ser correcta, pasard 
automaticamente a modificaciones, 
de ser correcta pedira si damos mas 
altas, repitiendo el proceso o pasan- 
do al selector maestro pulsando la te- 

I/* 
a . 

2. BAJAS. Una vez los elementos 
de la ficha estdn en pantalla, nos pi- 
de la referencia de la ficha a anular 
para mostrdrnosla y pedir conformi- 
dad a la baja, sin mds requisite De 
no dar la conformidad, vuelve como 
en el caso anterior al Selector Maes- 
tro. 

3. CONSULTAS. Siguiendo el pro- 
ceso anterior por medio de la refe- 
rencia se nos pueden presentar dos 
casos: 

CONSULTA DE UNA SOLA FICHA: 
Teclear directamente la Ref. de la fi- 
cha requerida despues de lo cual po- 
demos volver de la manera acostum- 
brada al Selector Maestro. 




7. CLASIFICACIONES. El progra- 
ma, nos muestra un selector con cua- 
tro opciones de las que podemos ele- 
gir dos: 

3. POR REFERENCIA 

4. POR APELLIDOS 

Las dos primeras estdn destinadas 
a posteriores ampliaciones previstas 
para este programa. 

Una vez elegida la clasificacion, el 
proceso nos informa de cudntas vuel- 
tas ha dado a las fichas y en que fi- 
cha se encuentra en cada vuelta. 

Las clasificaciones escogidas han 
sido desplazamiento del mayor ha- 
cia la cola del fichero quedando los 
menores a la cabeza. 

8. LISTADOS. En este punto fuerte 
del programa, nos ofrece siete op- 
ciones de las cuales podemos utilizar 
cinco, claramente ofrecidas en la 
pantalla; segun el listado elegido, 
nos aparecerd una flecha indicado- 
ra del listado escogido. 

Se debe tomar precaucion si la im- 
presora no es SEIKOSHA para cam- 
biar el modo de impresion puesto 
que los listados estdn preparados pa- 
ra «1 37» columnas dada la cantidad 
de informacion que cada uno de 
ellos contiene; concretamente se ha 
utilizado una impresora SEIKOSHA 
SP-800. 

Si hemos elegido la salida de eti- 
quetas autoadhesivas, el modo de 
impresion es de «80» columnas; Una 
vez impresa la primera linea de eti- 
quetas, se para el proceso y nos avi- 
sa para verificar que la posicion del 
papel en la impresora es el correcto 
y poder continuar la impresion has- 
ta el final del fichero. 
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1 


ROGR, 


1 30 Abre un fichero que reserva un buffer permanente para acelerar el posterior 

tratamiento del fichero en el disco 

150 Numero de fichas disponibles 

160-170 Dimensiona los elementos de la ficha 

180 Va al selector maestro 

190 Va a Sub. que pinta la cabecera 

200-230 Elige el color de las letras 

250-420 Selector maestro con todas las opciones del programa 

430-490 Hace parpadear un asterisco en determinadas preguntas 

500-630 ALTAS 

520 Mira la primera ficha disponible 

530 Mira si quedan fichas disponibles 

540 Pinto la ficha en la pantalla 

560 Pide la entrada de los elementos de la ficha 

570 Cuenta las fichas ocupadas 

580-630 Pide conformidad o modificaciones en la ficha 

640-830 BAJAS 

660 Si no hay fichero retorna al selector 

570 Pinta la ficha 

680-71 Pide la referencia de la ficha a dar de baja 

720 Busca la ficha a dar de baja 

730-830 0a la baja definitiva de la ficha 

840-1080 CONSULTAS 

890-930 Pide la ficha a consultar o todas consecutivamente 

940 Busca la ficha consultada 

960-970 Pone la ficha en pantalla 

980-1050 Fichas consecutivas S/N 

1060-1080 No quedan mas fichas. 

1090-1450 MODIFICACIONES 

1 140-1 170 Pide la referencia de la ficha a modificar 

1180 Busca la ficha. 

1 120-1410 Segun las iniciales modifica el campo elegido 

1400 ON GOSUB al campo a modificar 

1460-1650 GRABAR FICHERO. 

1 500 Pide nombre para el fichero si no lo tiene 

1520 Si tiene nombre podemos usar el mismo o cambiarlo 

1570-1620 Grabacion del fichero en el disco. 

1590 Se salta las fichas en bianco 

1660-1820 LEER FICHERO 

1690 Nos avisa si existe un fichero en memoria 

1730-1780 Lee el fichero que pidamos 

1830-1930 Sub. para borrar el fichero en memoria 

1940-2240 CLASIFICACIONES 

1960-2060 Selector de clasificaciones 

2100-2200 Bucle de clasificacion por seleccion del mayor-menor 

2250-2610 LISTADOS 

2290 En el primer listado pide instalacion de impresora 

2300-2450 Selector de los distintos listados 

2490-2540 Bucle de impresion de elementos segun listado elegido 

2560 Manda el cabezal al origen 

2620-2720 Pone el nombre del fichero y la cabecera del listado 

2730-2770 Pinta el indicador del listado 

2780-2880 FIN DE PROCESOS. Si existe un fichero en memoria avisa 

2890-3010 Sub. de cabecera de programa 

3020-3050 Sub. que indica la inexistencia de base de datos 

3060-31 10 Sub. de vuelta al selector 

3120-3230 Sub. que controla la repeticion de referencias 

3240-3320 Sub. que busca la primera ficha disponible 

3330-3370 Sub. que controla respuestas S/N 

3380-3450 Sub. que busca una ficha determinada 

3460-3520 Sub. que cuenta las fichas ocupadas 

3530-3590 Sub. para cambiar el nombre del fichero 

3610-3790 Sub. para los distintos tipos de listados 

3800-3870 Carga los elementos de la ficha para su tratamiento 

3880-3960 Sub. que imprime la ficha de pantalla 

3970-4590 Sub. de entrada de dados a la ficha en pantalla 

4020 Comprueba que la referencia no exista anteriormente 

4600-4730 Sub. imprime la ficha en pantalla 

4740-5010 Etiquetas 

4750-4800 Cambia la distancia de las lineas en la impresora 

4820-5000 Bucle de impresion 

2950-4970 Pide continuacion si la impresion es correcta 

5020-5160 Sub. se efectua la clasificacion en todos los campos de la ficha 

5170-5370 Carga los colores y los muestra en pantalla 

5380-5620 Instala la impresora segun el espacio entre lineas que necesitemos 

5540 Nos indica si la impresora esta preparada 

5550-5580 Envia los comandos a la impresora 





Las opciones no utilizadas de mo- 
mento, se pueden usar para listados 
a nuestra eleccion o para recibos co- 
mo anteriormente nos avisa de ello. 

9. FIN DE PROCESOS. Entrando en 
esta opcion, podemos enlazar con 
otro programa a nuestra eleccion. 
Ej., un selector de programas de un 
determinado tipo conteniendo el pre- 
sente. 

Si existe un fichero en memoria, 
antes de despedir el programa nos 
avisa de actualizarlo en el banco de 
datos. 

10. CAMBIO DE COLOR. Esta op- 
cion, nos permite cambiar el color de 
las letras automaticamente segun 
nuestro gusto, sin perder el conteni- 
do de la memoria. 

No creemos que sean necesarias 
mas aclaraciones sobre el manejo del 
programa, solo decir que es extre- 
madamente rapido a pesar de su 
longitud, y que todo el esta realiza- 
do por medio de abundantes subru- 
tinas enlazadas entre si; pero pen- 
sando de una manera que no cueste 
su comprension en la lectura del lis- 
tado. 

Tambien cabe apuntar la elastici- 
dad de usos a los que podemos 
adaptarlo dada la diversidad de in- 
formacion que puede manejar y tra- 
tar distintos ficheros en un mismo dis- 
co. 
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******************************** 


FICHERO GENERAL 


NINO 


MARIA JOSE 


**************************** 


10 •** 

20 " ** 

** 
30 '** 

** 
40 '** 

** 
50 •** 

** 
60 - ** 

** 
70 '** 
****** 
80 ' 
90 ' 

100 BORDER 1: INK 0, 1 
110 SYMBOL 234,7,24.55.54,55,24,7 
120 SYMBOL 255,248,6,243,3,243,6,24 
8 

130 OPENOUT "careto": MEMORY HIMEM-1 
: CLOSEOUT 
140 n 9 

150 if alQOtfckaOl ' ***** NUM. REGIST 
ROS ***** 

160 DIM re»((() ,ap*(f-f ) ,no*(f-f ) ,dc* 
(f-f).pa*<-f-f),pr*(-ff>,co*<-f-n,te*(*-f 
),ac*(-f-f>. dn*(-f f ) ,an*(f -f > ,s 
at(ff) 

170 DIM dt*<12) ,-fl*(12) ,GG*<12> ,in* 
(26) 

180 GOTO 240 
190 GOSUB 2890 

200 LOCATE 12, 14-.PRINT "Pulsa ' c ' p 
ara ver Ids colores" 

210 LOCATF 12,16: INPUT "Color de 1 
as letras (1-26) " ; cc* 
220 SOUND 1.20: IF cc*-"c" THEN 5170 
230 cc=INT(VAL(cc*> ) : IF cc< 1 OR cc> 
26 THEN 700 Fl SE INK l,cc 
240 mo*="S ELECTOR MAES 

T R 0":GOSUB 2S90 
250 GOSUB 3800 

260 LOCATE 1B,9:PRINT "1 - Altas" 
270 LOCATE 18,10:PRINT "2 - Bajas" 
2B0 LOCATE 18,11:PRINT "3 - Consult 
as" 

290 LOCATE 18, 12:PRINT "4 - Modlfic 
aciones" 

300 LOCATE IB. 13: PRINT "S - Grabar 
i i chpro" 

310 LOCATE IB, 14: PRINT "6 - Leer -f l 
rhero" 

320 LOCATE !8,15:PRINT "7 - Clasi-fi 
can one's" 

330 LOCATE 1B,16:PRINT "8 - Listado 
s" 

340 LOCATE 1R.17:PRINT "9 - fin da 
proresos" 

353 lTCATE"~r87[B:PftlRT"""0 ~- "c"ambTo~ 
Hp cil or" 

360 LOCATE 1B,21:PRINT "Opcion dese 
ada (1-9) "; 
370 GOSUB 430: SOUND 1,20 
3B0 IF h*<"0" OR h»>"9" THEN 370 
390 h-INT<VAL<h*> ) : IF h=0 THEN h=l 
** 

400 ON h GOSUB 500,640,840.1090,146 
0, 1660, 1940,2250,2780, 190 
410 GOTO 240 
420 END 

430 '******* PARPADEO ******** 
440 h*-INKEY* 
450 IF h*<>"" THEN RETURN 
460 PRINT "*";: GOSUB 490 
470 PRINT CHR*(8) ;CHR*(16) : : GOSUB 4 
90 

4B0 GOTO 430 

490 FDR j=l TO 300: NEXT j : RETURN 
500 "***** ALTAS ***** 
510 mo*="A L T A S": GOSUB 2890 
520 GOSUB 3240 

530 IF oo»l THEN oo=0: GOTO 3060 
540 GOSUB 38B0 
530 mf-0 
560 GOSUB 3970 
370 GOSUB 3460 
580 LOCATE 10, 23: PRINT "Es con-forme 

la ficha (B/N) "; 
590 GOSUB 3330 
600 IF ss=0 THEN 1210 
610 LOCATE 10, 23: PRINT "M a s 
altas (S/N) " : 
620 GOSUB 3330 

630 IF ss-0 THEN 3060 ELSE GOTO 510 
640 '***** BAJAS ***** 
650 mo*="B A J A S": GOSUB 2B90 
660 IF w«="" THEN GOSUB 3020: GOTO 3 
060 

670 ROSUB 3B80 
680 LOCATE 57,B:PRINT STRING! ( 10, " . 


") ;STRING*(13, " ") 
690 LOCATE 57,8:LINE INPUT aa* 
700 IF LEN(aa*>>10 OR LEN(aa*><4 TH 
EN 680 

710 aa*=UPPER*(aa») : LOCATE 57,8:PRI 
NT aa* 

720 GOSUB 3380 
730 IF oo-l THEN 3060 
740 GOSUB 4600 
750 LOCATE 10,23 

760 PRINT "Con-forme con la baja (S 
/N) ": ■ 

770 GOSUB 3330 
780 IF ss«0 THEM 3060 
790 re*(tt) "" 
800 GOSUB 3460 
810 LOCATE 10,23 
; 820 PRINT "Ficha ":aa*:" dada do ba 
ja " 
830 GOTO 3060 
840 ****** CONSULTAS ***** 
850 MO*-"C N S U L T A S" 
860 GOSUB 2890 

870 IF w*-"" THEN GOSUB 3020: GOTO 3 
060 

BSO GOSUB 3BB0 

890 LOCATE 57,8:PRINT STRING* ( 10, " . 
") ;STRINGt(13, " ") 
900 LOCATE 57, 8: LINE INPUT aa* 
910 IF LEN<aa*)>10 OR LEN(aa*)<4 TH 
EN 890 

920 aa*=UPPER*(aa*) : LOCATE 57,8;PRI 
NT aa* 

930 IF aa*-"TODAS" THEN 980 
940 GOSUB 33B0 
950 IF oo=l THEN 3060 
960 GOSUB 4600 
970 GOTO 3060 
980 FOR tt = l TO f-f 
990 IF re*(tt>="" THEN 1050 
1000 GOSUB 2890: GOSUB 3B80: GOSUB 46 
00 

1010 LOCATE 10,23 
1020 PRINT "Siguiente ficha (S/N) 

1030 GOSUB 3330 

1040 IF ss=0 THEN 3060 

1050 NEXT tt 

1060 LOCATE 10,23 

1070 PRINT "No hay mas fichas 

1080 GOTO 3060 

1090 '***** MODIFICACIONES ***** 

1100 mo*="M ODIFICACIONE 

S" 
1110 GOSUB 2890 

1120 IF w*-"" THEN GOSUB 3020: GOTO 
3060 

1130 GOSUB 3880 

1140 LOCATE 57, B: PRINT STRING* (10," 
. ") ;STRING«(13, " ") 
1150 LOCATE 57. 8: LINE INPUT aa* 
1160 IF LEN(aa*)>10 OR LEN(aa*)<4 T 
HEN 1 1 40 

1170 aa*=UPPER*(aa*> 
11 BO GOSUB 33B0 
1190 IF oo=t THEN 3060 
1200 GOSUB 4600 
1210 m-f«l 

1220 d 1=0: LOCATE 10,23 
1230 PRINT "Dato a modi-ficar ' dos 
primeras letras' " 

1240 LOCATE 30,23 

1250 LINE INPUT d 1*: dl*-UPPER* (d 1*) 
: SOUND 1 , 20 

1260 IF LEN(dl*X'>2 THEN 1220 
1270 IF dl*="RE" THEN dl 1 
1280 IF dl*="AP" THEN dl-2 

THEN dl=3 

THEN dl-4 

THEN dl»5 

THEN dl=6 

THEN dl=7 

THEN dl-B 

THEN dl-9 


1290 IF dl* "NO" 
1300 IF dl*="DI" 
1310 IF dl*-"PO" 
1320 IF dl* "PR" 
1330 IF rtl*-"CO" 
1340 IF dl* "TE" 
1350 IF dl*-"AC" 
1360 IF dlt-'Myg" 
1370 IF dl*. 
13B0 IF dl* "SA" 


THEN dl=10 
"AN" THEN dl=ll 

THEN dl-12 
139 IF dl< 1 THEN 1220 
T400 ON d 1 " GDSUS J9807?050 . 4 1 0074 1 5" 
, 4200 , 4250 , 4300 , 4350 , 4 400 , 44 50 , 

4500,4550 
1410 LOCATE 10,23:PRINT STRING*(45, 
" "): LOCATE 10,23 

1420 PRINT "Fin mod i-ficaci ones <S 
/N) "j 

1430 GOSUB 3330: SOUND 1,20 
1440 IF ss=l THEN mf=0:GOTO 3060 
1450 GOTO 1220 


1460 "***** SAVE FICHERO ***** 
1470 mo*-"G RABAR FICHE 

R 0" 
14B0 GOSUB 2890 

1490 IF tt<l THEN GOSUB 3020:G0T0 3 
060 

1300 IF w*="" THEN ss-0:GOTO 1540 
1510 LOCATE 10, 12 
1520 PRINT "Usas el -fichero ":w*:" 

(S/N) "; 
1330 GOSUB 3330 

1540 IF ss=0 THEN oo-l:SOSUB 3530 
1530 LOCATE 10, 12: PRINT STRING* (55, 
" ") 

1560 LOCATE 10,14:PRINT "Actual i:an 
do -fichero ";w» 
1570 OPENOUT w* 
1380 FOR ttM TO if 
1590 IF re*(tt) "" THEN 1610 
1600 WRITE tt9,re*(tt) ,ap«(tt) ,no*(t 
t) ,dc*(tt) ,po*(tt) ,pr*(tt) ,co*(tt) , 
te*(tt), ac*(tt),dn* 

(tt) ,an*(tt) ,sa*(tt) 
1610 NEXT tt 
1620 CLOSEOUT 
1630 LOCATE 10, 14 

1640 PRINT "Fichero actual izado' en 
el disco " 
1650 GOTO 3060 

1660 '***** LOAD FICHERO ***** 
1670 mo»- "L EER FICHFRO 

16B0 GOSUB 2B90 

1690 IF w*<>"" THEM 1B30 

1700 oo=l: GOSUB 3530 

1710 LOCATE 10,12:PRINT STRING*(55, 

" ") 


Variables 
Principales 
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RES (x) 
AP$(x) 
N0$ (x) 
DCS (x) 
POS (x) 
PR$ (x) 
COS (x) 
TES(x) 
AC$ (x) 
DNS (x) 
AN$ (x) 
SAS (x) 
DT$ (12) 
GG$(12) 

IN$ (26) 

H$ 
M0$ 

00 

SS 

MF 

W$ 

AAS 

Dl$ 

Dl 

TT 

FF 

H5 

KK 

LI 

HO 

Tl 
01 


Referenda 

Apellidos 

N ombre 

Domicilio 

Poblacion 

Provincia 

Codigo postal 

Telefono 

Actividad 

D.N.I. 

Aniversario 

Santo 

Datos de la ficha 

Provisional para las 

clasificaciones 

Contiene los colores del 

Amstrad 

De uso general 

Opci6n del selector en 

pantalla 

Si quedan fichas libres 

Discrimina la respuesta S/N 

Discrimina altas o 

modificaciones 

Nombre del fichero 

Ficha llamada a pantalla 

Campo a modificar 

ON GOSUB a ese campo 

Control general del numero 

de ficha en pantalla 

Niimero general de fichas 

disponibles 

Control de clase de 

clasificacion 

Discrimina la primera entrada 

en listados para instalar la 

impresora 

Numero de linea de 

impresion 

Numero de hoja de 

impresion 

Numero de fichas ocupadas 

Etiquetas con o sin referenda 


1720 LOCATE 10, 14: PR I NT "Leyendo -f i 

chero " : w$ 

1730 OPENIN w* 

1740 FDR tt=l TO ff 

1750 IF EOF— 1 THEN 1780 

1760 INPUT *9,re*<tt).ap*(tt>,no*(t 

t) ,dc»(tt> , po*(tt) , pr*(tt ) ,co*(tt) , 


ac*<tt> ,dn* 


'4 - Por ap 


'CI asi f i cac 


te*(tt) . 

<tt) ,an»(tt> ,sa*(tt 1 

1770 NEXT tt 

1760 n OSFIN 

1790 LOCATE 10, 14 

1800 PRINT "Fichero ":w*;" instalad 

o en memoria" 

1810 GOSUB 3460 

1B20 GOTO 3060 *' 

IB30 ****** EXISTS FICHERO ***** 

1B40 LOCATE 10,12:PRINT "Esta en vi 

gor _gl_ _£Lcher.o_ '1: ttt, _ 

1850 LOCATE 10, 14: PRINT "Lo elimina 

s de memoria (S/N) "; 

1B60 GOSUB 3330 

1870 IF ss=0 THEN 3060 

18B0 FOR tt 1 TO ff 

1B90 re*(tt>»"" 

1900 NEXT tt 

1910 LOCATE 10,12:PRINT STRING*<55, 

" " ) 

1920 LOCATE 10,10:PRINT "Fichero ": 

w*; " el 1 mi nado" 

1930 GOTO 1700 

1940 ****** CLASIFICACIONES ***** 

1950 mo»="C LASIFICACION 
E S" 

1960 GOSUB 2890 

1970 IF W*="" THEN GOSUB 3020:G0T0 

3060 

1980 LOCATE 10, 10: PRINT "1 -" 

1990 LOCATE 10,11:PRINT "2 -" 

2000 LOCATE 10,12:PRINT "3 - Por re 

f erencl as" 

2010 LOCATE 10, 13:PRINT 

el lidos" 

2020 LOCATE 10, 19: PRINT 

Ion deseada (1-4) " .: 

2030 GOSUB 430: h5*=h»: SOUND 1,20 

2040 h5=INT(VAL<h5*> ) 

2050 IF h5<3 OR h5>4 THEN 2030 

2060 GOSUB 2890 

2070 LOCATE 10,10:PRINT "EFECTUANDO 

CLASIFICACION" 
20B0 GOSUB 3460 
2090 t-0 

2100 FOR 21=1 TO tl 
2110 IF h5=3 AND re*(zl>- 
00 

2120 IF h5^4 AND ap*(zl)- 
00 

2130 IF zl=ff THEN 2210 
2140 IF h5=3 AND re*(zl)<>"" 
*(z l)Ore*(2l-H > THEN 2200 
2150 IF h5«4 AND ap*(zl)<>"" 
*(zlX'ap»(:l + l) THEN 2200 
2160 IF h5=3 AND reJlzDO"" 
OSUB 5020 

2170 IF h5=4 AND ap*(2l)<>"" 
OSUB 502O 
2180 LOCATE 10,14:PRINT "Ficha 

":LQCATE 17,14:PRINT 21 
2190 LOCATE 10, 16: PRINT "Vtas. 

":LOCATE 17,16:PRINT v 
2200 NEXT zl 

2210 IF t-1 THEN v=v+l:GOTO 2090 
2220 LOCATE 10.10:PRINT "Clasificac 
Ion ofectuada " : v=0 
2270 BOSUB 3460 
2740 GOTO 3060 
7250 "***** LISTADOS ***** 
7260 mo*="L I S T A D O S" 
2270 GOSUB 2890 

22B0 IF w*«" " THEN GOSUB 3020: GOTO 
3060 

2290 IF kl:=0 THEN 53B0 
2300 LOCA T E 10, 10: PRINT "1 - ref.no 
m. doff,, pob. prov. cod. " — 
2310 LOCATE 10,11:PR1NT 
m. pob. prov.tlfno.actv." 
2320 LOCATE 10, 12: PR INT 
m. dni . an j v. santo. " 
2330 LOCATE 10, 13: PR INT 
2340 LOCATE 10, 14: PRINT 
2350 LOCATE 10, 15: PRINT 
tas con referenda" 
2360 LOCATE 10, 16: PRINT 
tas sin referenda" 
2370 LOCATE 10,17:PRINT 

de 1 i stados" 
7380 I OCATE 10,20:PRINT "Opcion ele 
glda ( 1 - 8 ) "s 
2390 GOSUB 430: SOUND 1,20 


THEN 22 


THEN 22 


AND 


AND ap 


THEN G 


THEN G 


"2 - ref.no 


"3 

"4 
"5 
"6 


" B 


ref . no 

Et lque 
Etl que 
Satlda 


2400 IF h»<"l" OR h*>"B" THEN 2390 

2410 h=INT(VAL(h*> ) 

7420 GOSUB 2730 

2430 ON h GOSUB 2460,2460,2460,2450 

,2450, 4740,4740 

2440 IF h-8 THEN 3060 ELSE GOTO 23B 



2450 SOUND 1,500: RETURN 

2460 GOSUB 3460 

2470 WIDTH 137 

24S0 li-0:ho=0 

2490 FOR tt-1 TO tl 

2500 IF re*(tt)»"" THEN 2540 

2510 IF li=0 THEN GOSUB 7620 

2520 ON h GOSUB 3640,3700,3770 

2530 li=li+l:IF 1 l =55 THEN Ii=0:GOS 

UB 25B0 

7540 NFXT tt 

7550 SOUND 1 , 20 

2560 PRINT #B,CHR*<7) :CHR*<27) ; "C": 

7570 GOTO 270O 

25B0 FOR x=0 tq e 

2590 PRINT ttn 

2600 NFXT :-. 

7610 RETURN 

7670 '***** CAP. LISTADOS ***** 

•?630 PRINT *B,CHR*(77) ; "X1";CHR*(14 

) ; 

2640 PRINT *8,TAB(40-< (LEN(w*)/2) ) ) 

:w» 

7650 PRINT #8,CHR*t?0): 

7660 ho-ho+1 

7670 PRINT #8, TAP (125): "Ho ja ":ho 

26B0 PRINT «B 

2690 PRINT «8.CHR*<77) : "-";CHR*tl) ; 

7700 ON h GOSUB 3610.367O.3740 

2710 PRINT tt8,CHR*(27) j "-":CHR*<OJ: 

7770 RETURN 

2730 m*=CHR*(154)+CHR*(243) 

2740 LOCATE 7, n: PRINT " " 

2750 n=h+9 

2760 I OCATE 7, n: PR I NT m* 

2770 RFTURN 

2780 '***** END PROCESOS ***** 

2790 »o$."F IN DE PROCE 

S S" 
7800 GOSUB 2S90 
2810 IF w*^" " THEN 2870 
2B20 LOCATE 10, 10: PRINT "ExiSte un 
fichero en memoria" 

2830T0CATE To; r2rpRTNT " A"5egurate~ 
de actual izarlo en el disco" 
2840 LOCATE 10,19:PRINT "Fin de pro 
cesos (S/N) "; 
2850 GOSUB 3330 
2860 IF 55=0 THEN 3060 
2870 LOCATE 10,23:PRINT "Espera por 

favor " 
2BB0 RUN "Al" 

2890 '***** CABECERA ***** 
2900 MODE 2 

2910 LOCATE 3,2:PRINT "Fichero actu 
al ":w* 

2920 LOCATE 3.4:PRINT "Fichas ocupa 
das " :tl 

2930 LOCATE 40,7: PRINT CHR*(254)+CH 
R*<255)+" NINO 15.06.B5" 
2940 LOCATE 1,6: PRINT STRING* (80, " * 
" ) 

2950 LOCATE 40, 5: PRINT mo* 
2960 LOCATE 1,1:PRINT STRING* <B0, "* 
") 

2970 LOCATE 1,2:PRINT "*":L0CATE 80 
,2:PRINT "*" 

29B0 LOCATE 1.3:PRINT "*":L0CATE 80 
,3:PRINT "*" 

2990 LOCATE 1,4: PR I NT "*" : LOCATE 80 
,4:PRINT "*" 

3000 LOCATE 1,5: PR I NT "*": LOCATE BO 
,5:PRINT "*" 
3010 RETURN 

3020 '***** SIN DATOS ***** 
3030 LOCATE 10,23 
3040 PRINT "No existe base de datos 

3050 oo- 1 : RETURN 

3060 '***** AL SELECTOR ***** 

3070 mo*-"" 

30B0 LOCATE 10,24 

3090 PRINT "PulBa "" para selector 

3100 IF INKEY*-'"-" THEN SOUND 1,20: 

RETURN 

31 10 GOTO 3100 

3120 ****** CONTROL DE REFERENCIAS 

***** 

7130 oo-O 

3140 FOR jl'l TO ff 

3150 IF il tt THFN 3170 

3160 IF ri?*(tt)-re*(jl) THEN 3190 


3170 NFXT jl 

7 ISO RFTURN 

3)90 LOCATE 10, 23: PRINT "Ref erenr i a 

e:< i stente 

3200 SOUND 1 . 20 - 

3210 FOR dd-0 TO 7000: NEXT dd 

3220 LOCATE 10, 23: PRINT STRING* (72, 
„ ,i, 

3230 oo=l: RETURN 

3240 '***** PRINERA FICHA DISPOMIBL 

E ***** 

3250 oo=0 

3260 FOR tt-1 TO ff 

3270 IF rp«(tt)'"" THEN SOUND 1,20: 

RETURN 

72J30. NE.XX.tt . _ 

3290 LOCATE 10,23 

3300 PRINT "No hay mas fichas dispo 

nibles" 

3310 oo- 1 

3320 RETURN 

3330 '***** COMPROBAR S/N ***** 

3340 GOSUB 430: SOUND 1.20 

3350 IF h*-"S" OR h*="s" THEN ss-1: 

RETURN 

3360 IF h*="N" OR h*="n" THEN 5S O: 

RETURN 

3370 GOTO 3340 

33B0 "***** BUSCAR FICHA ***** 

3390 oo=0 

3400 FOR tt=l TO ff 

3410 IF aa*-re*<tt) THEN SOUND 1,20 

: RETURN 

3420 NEXT tt 

3430 LOCATE 10,23:oo-l 

3440 PRINT "Ficha ";aa*;" no exists 

3450 RETURN 

3460 '***** FICHAS OCUPADAS ***** 

3470 tl=0 

34B0 FOR hl=l TO ff 

3490 IF re*(hl)<>"" THEN tl-tl+1 

3500 NEXT hi 

3510 LOCATE 19,4:PRINT tl 

3520 RETURN 

3530 '***** NOMBRE FICHFRO ***** 

3540 LOCATE 10. 12 

3550 PRINT "Nombre del fichero a ut 

ilizar (4 a 8) letras" 

3560 LOCATE 10, 14: PRINT " — > 

3570 LOCATE 15, 14: INPUt"w»: w*=UPPER 

*(w*):LOCATE 17,14:PRINT w* 

35B0 IF LEN(w*><"4 OR LFN(wS) -B THEN 
7560 

7590 IF oo»l THEN 00=11: RFTURN 

3600 'tt*************************** 

********** 

3610 PRINT t<P,TAB(l) :dt*<l! ;TAB<13) 

:dt*<3) : TAB (57) :dt*(4) ;TAB(BB) :dt*< 

5) : 

7620 PRINT *8,TAB(110> ;dt*(6) : TAB ( 1 

30): "Cod. " 

3630 RETURN 

7640 PRINT ttB.TAB(l) :re*(tt ) j TAB (13 

) ;no*(tt) : TAB < 14+ <LEN(nn* <t t > ) ) ) ; ap 
*(tt) : 

3650 PRINT #B.TAB(57) ;dc*(tt ) ;TAB(B 
8) :po*<tt) : TAB (110) ;pr*(tt) : TAB I 130 
) :co*(tt) 
3660 RETURN 

3670 PRINT tt8,TAB(l) ;dt*(l ) ; TAB (14) 
:dt*(3) ; TAB (62) ;dt*(5) ;TAB(B5) ;dt*< 
6) ; 

76B0 PRINT *8, TAB (103) ;dt*(S> ; TAB < 1 
15) ;dt*(9) 
7*90 RFTURN 

3700 PRINT ttB.TAB(l) ;re*<tt) ;TAB(14 
) ; no*<tt) :TA8(15+<LEN-(no*(tt> ) ) ) ; ap 
*'tt> : 

7710 PRINT ttB,TAB(62) :po*(tt) ;TAB(B 
5):pr$<tt); 
3720 PRINT tte.TAB(103);te*(tt);TAB( 

1 15) ;ac*(tt) 

3730 RETURN 

7740 PRINT #R,TAB(l);dt*(l) : TAB (14) 

:dt*!3);TAB(62) : "D.N. I. "; 

3750 PRINT #B,TAB(75) :dt*!12) JTABIB 

B) :dt*(l 1 ) 

3760 RETURN 

3770 PRINT ttB.TABU) ;re*(tt) :TAB(14 

) ;no*(tt) :TAB(15+(LEN<no*(tt> ) ) ) : ap 

*(tt) ; 

3780 PRINT tt8,TAB(62) ;dn*(tt) ;TAB(7 

5) :sa*(tt) :TAB<BB) :an*(tt) 

3790 RETURN 

3800 '***** ELEMENTOS FICHA ***** 

7810 RESTORE 

3820 DATA Ref ci a, Apel 1 i dos, Nombre, D 

irecci on, Pobl aci on, Provi nci a, Cod. po 

stal 
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3830 DATA Tel e-f ono, Acti vidad, D. N. I . 

o C. I . F. , Ani vprsario, Santo 
3840 FOR tf*l TO 12 
3830 READ dt*(tf) 
3860 NEXT t< 
3870 RETURN 

3880 "***** S1TUAC10N FICHA ***** 
3890 LOCATE 50.8:PRINT dt*(l) 
3900 LOCATE 3, 10:PRINT dt*(2):LOCAT 
E 50, 10-.PR1NT dt*(3) 

3910 LOCATE 3.11:PRINT dt* <4) : LOCAT 
E 3. 13:PRINT dt*(S) 

3920 LOCATF 3, 14:PRINT dt*(6):L0CAT 
E 40, 14:PRINT dt*(7) 
3930 LOCATF 3,16:PRINT dt»(B) 
3940 LOCATE 3, 18:PRINT dt*(9):L0CAT 
E 40, 181PRINT dt*( 10) 

3950 LOCATE 3, 20: PRINT dt*(ll):LOCA 
TE 40, 20 s PRINT dt*(12) 
3960 RETURN 

"970 "***** INPUT FICHA ***** 
3980 LOCATE 57,8: PRINT STRING* < 10," 
. ") :STRING*<13, " ") 

3790 LOCATE 57,8: LINE INPUT re*(tt 
) 

4000 IF LEN(re*(tt> ) MO OR LENIretl 
tt) ><4 THEN 3980 
4010 rp*(tt)~UPPFR*<re*(tt> ) :LDCATE 

"17,B:PRINT retttt) 
4020 GOSUB 3120 
4O30 IF oo-l THEN 3980 
4040 IF m-fM THEN RETURN 
4030 LOCATE 13.10:RfiINT STRING* (30, 
". ") ; STRING* (6, " ") 

4060 LOCATE 13,10:LINE INPUT aptltt 
) 

4070 IF LEN(ap*(tt) ) >30 THEN 4050 
40S0 ap*(tt) -UPPER* (ap*(tt> ) : LOCATE 

13, 10:PRINT ap*(tt> 
4090 IF m-fM THEN RETURN 
4100 LOCATE 57,10:PRINT STRING*(15. 
". ") :STRING*(8, " ") 

4110 LOCATE 57, 10: LINE INPUT no*(tt 
) 

4120 IF LEN(no*(tt) ) >15 THEN 4100 
4130 no*(tt)=UPPER*(no*(tt> ) : LOCATE 
"57, IO:PRTNT no^ftt) 
4140 IF mf=l THEN RETURN 
4150 LOCATE 13, 11:PRINT STRING* (30, 
". ") ;STRING*(10, " ") 

4160 LOCATE 13, 11:LINE INPUT Dc*(tt 
) 

4170 IF LEN(Dc*(tt) ) >30 THEN 4150 
4180 Dc*(tt)=UPPER*(Dc*(tt) ) :LOCATE 

13, 11:PRINT Dc*(tt> 
4190 IF m-f = l THEN RETURN 
4200 LOCATE 13,13:PRINT STRING*(20, 
". ") : STRING* (10, " " ) 

4210 LOCATE 13, 13: LINE INPUT po*(tt 
) 

4220 IF LEN(po*(tt ) ) >20 THEN 4200 
4230 po*(tt>=UPPER*<po*(tt> ) :LOCATE 

13. 13:PRINT po*(tt) 
4240 IF mf = l THEN RETURN 
4250 LOCATE 13, 14:PRINT STRINGtdS. 
". "> ;STRING*(10, " " ) 

4260 LOCATE 13, 14: LINE INPUT pr*(tt 
) 

4270 IF 1 EN(pr*(tt) ) >15 THEN 4250 
4280 pr*(tt)=UPPER*<pr*(tt) ) : LOCATE 

13. 14:PRINT pr*(tt) 
4290 IF mf=l THEN RETURN 
4300 LOCATE 51, 14: PRINT STRING* <5," 
. ") :STRING*(5, " ") 

4310 LOCATE 51,14:LINE INPUT co*(tt 
) 

4320 IF LEN(co*(tt) > >5 THEN 4300 
4330 co*(tt)=UPPER*(co*(tt> ) : LOCATE 

51. 14:PRINT co*(tt> 
4340 IF mf=l THEN RETURN 
4350 LOCATE 13,16:PRINT STRING*(7." 
. ") :STRING*(5. " ") 

4360 LOCATE 13, INLINE INPUT te*(tt 
) 

4370 IF LEN(te*(tt >> >7 THEN 4350 
43S0 te*(tt)=UPPER*(te*(tt ) ) :1 OCATE 

13. 16:PRTNT*te*(tt> 
4390 IF mf = l THEN RETURN 
4400 LOCATE 13, 18: PR INT STRING* (20, 
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". ") ;STRING*(S, " ") 

4410 LOCATE 13,1S:LINE INPUT ar*<tt 

) 

4420 IF IFN(art(tt))^n THFN 1400 

4430 art ( tt ) "UPPER* <ac* (tt) ) : I OCATE 

13, !P:FRINT ,->r*(tt ) 
4440 IF m<M THEN RETURN 
4450 I OCATF 5S,18:PRINT STRING*(10, 
". ") ',STRING*<5, " ") 

4460 I OCATE 55,1B:LINE INPUT dn*(tt 
) 

4470 IF LEN(dn*(tt> ) MO THEN 4450 
4480 dnt(tt) -UPPER* (rin*(tt> ) : LOCATE 

55, 18-.PRINT dn*(tt) 
4490 IF mf-1 THFN RFTURM 
4500 LOCATE 15, TO: PRINT STRING* (8," 
. "> :STRING*(5, " ") 

4510 [ OCATF 15,?0:LINr INPUT an*(tt 
) 

4520 IF I.EN(an*(tt) ) >B THFN 4500 
4530 antltU-UPPERtianJitt ) ) : LOCATE 

15,?0:PRINT an*(tt) 
4540 TF mf 1 THFN RETURN 
4550 LOCATE 46, 20: PRINT STRING* (8," 
. ") : STRING* (5, " " ) 

4560 I DCATE 46,20:LINE INPUT sa*(tt 
) 

4570 IF I EN(sa*(tt) > >B THEN 4550 
4580 sa*(tt)=UPPER*(sa*(tt) ) '.LOCATE 

46,20:PRINT sa*(tt) 
4590 RETURN 

4600 '***** PRINT ENFLM. FICHA **** 
* 

4610 LOCATE 57,8:PRINT re*(tt> 
4620 LOCATE 13, 10: PRINT ap*(tt) 
4630 LOCATE 57,10:PRINT no*(tt> 
4640 I OCATE 13,ll:PRINT dc*(tt) 
4650 LOCATE 13, 13:PRINT po*(tt) 
4660 LOCATE 13,14:PRINT pr*(tt) 
4670 LOCATE 51,14:PRINT co*(tt) 
4680 LOCATE 13,16:PRINT te*(tt) 
4690 LOCATF 13, 18: PRINT ac*(tt) 
4700 LOCATE 55,1B:PRINT dn*(tt) 
4710 I OCATF 15,20:PRINT ant(tt) 
4720 I OCATE 46.20:PRINT sa*(tt) 
4730 RFTURN 

4740 "***** ET1QUETAS ***** 
4750 ol=0:IF h=6 THEN ol 1 
4760 o2-l: Ik'- 0: WIDTH 80 
4770 GOSUB 3460 

4780 PRINT ttB,CHR*(27) :CHR*(64) : 
4790 PRINT *B,CHR*(27> :CHR*(18) : CHR 
*(7) : 

4800 PRINT #6. CHR* (77); CHR* (51): CHR 
*(18) : 
4810 a) 

4B20 FOR tt=l TO tl STEP 7 
4830 al-al+1 

4840 IF ol 1 THFN PRINT #8, TAB (24) ; 
re*(tt > : TAP (60) •i-Bt'.tt-H! 
4850 TF o1=o THEN PRINT #8, TAB (74) s 
•'*";TAR(60> j •'*" 
4B60 PRINT *8 

48^0 PRINT tte.TAPd' :no*(tt> :TAB(LE 
N(nn* ttt! ) +21 j ap*(tt) : 
4RP0 PRINT BP.TAFK^B) ;no*(tt +1 ) : TAB 
H.FNIrn* ITTM ) >+4<'i) : ap*(tt + l> 
4P90 print «n.T^p(l) : dc*(tt) :Tr"iP(3R 
) :dr.*(tt +1) 
4900 PRINT #8 

4910 PRINT *8,TABTl> ;po*(tt> ;TAB(38 
) ;po*(tt+l> 

4970 PRINT ttS,TAB(12) ;co*(tt) :TAB(1 
8) ;pr*(tt) ; 

4930 PRINT *8,TAB<49> :co*(tt+l) s TAB 
(55) ;pr*(tt+l> 
4940 PRINT #8 

4950 IF o2="l THEN LOCATE 10.23:PRIN 
T "Sigues listando (S/Nl "; 
4960 IF o2-M THFN GOSUB 3330 
4970 IF o2=l THEN o2=0:L0CATE 10,23 
:PRINT STRING*(25," ")|IF ss-0 THEN 

3010 
4980 IF al-3 THEN al»0 
4990 PRINT #B 
5000 NEXT tt 

5010 SOUND 1,20: GOTO 2300 
5020 '***** EFECT. CLASIFICACION ** 
*** 

5030 gg*(l)=re*(zl+l) : re* (z 1+1 > -re* 
(2l> irrt(zl) =gg*( 1) 

5040 gg*(2)=ap*(2 1 +1 > : apt (z 1+1 ) ^-ap* 
(zl ) :ap*(z 1) -gg*(2) 

5050 gg*(3)=no*(zl+l) : no* (z 1+1 ) 'no* 
(z 1) :no*(zl)-gg*(3) 

5060 gg*(4)=dc*(z 1+1 ) :dc* (zl+l)=dc* 
_ (zl) :dc*(zl) =gg*(41 

~5070 gg*(5) -po*(z 1 + 1 ) :po*(z 1+ 1) -po* 
(zl) :po*(zl)-gg*(5) 

3080 gg*<6) =pr* (zl+l):pr*(zl+l)-pr* 
(2 1) :pr*(zl)-gg*<6> 


Serie 


5090 gg*(7) -co* (z 1+1) :co*(zl+l ) -co* 

(zl) :co*(zl> -gg*(7) 

5100 gg*(8)=te*(2l+l) : te* (z 1+1 ) = tp* 

(zl) :te*(2l)»gg*(B) 

5110 gg*(9)«ar*(rl+l):ac*(2 1+1 )»ac* 

(zl) :ac*(zl)»gg*(9) 

5120 gg*(10)=dn*(7l+l) :dn*(z 1+1) dn 

*(zl) :dn*(zl) -gg*(10) 

5130 gg*(ll)-an*tzl+l> : an* (z 1+ 1 ) -an 

*(zl) :an*(zl) -gg*(ll) 

5140 gg*(12)»sa*(zl+l) : sa* (z 1+1 ) »sa 

*(zl) :sa*(zl)'gg*<12) 

5150 t=l 

5160 RETURN 

5170 '***** COLORES LETRAS ***** 

5180 GOSUB 2B90 

5190 RESTORE 5200 

5200 DATA 1 Azul,7 Azul brUlantp,3 

Rojo, 4 Magenta, 5 Malva 
5210 DATA 6 Rojo brill ante, 7 purpur 
a,B Magenta brillante.9 Verde. 10 Ci 
ano 

5770 DATA 11 Azul cielo,S2 Amarillo 
,13 Blanco, 14 Azul pastel, 15 Naranj 
a 

5230 DATA 16 Rosa, 17 Magenta Pa^tol 
,18 Verde bn 1 1 *n+«, 19 Verde marino 
5740 DATA 20 Ci*nn br i 1 ! ant e, 21 Ver 
de lima, 22 Verrip pastel. 23 Ciano pa 
ctel 

5750 DATA 74 h>ril]o brillanto.2? 
Amarillo pastel, 26 Blanco brillante 
5260 FOR j = l Ta. 26 
5270 READ in*(j) 
5280 NEXT j 
5290 h-7 

5300 FOR j • 1 TO 13 
5310 h^h+1 

5320 LOCATE 15,h:PRINT in*(j) 
5330 LOCATE 40,h:PRINT in*(j+13) 
5340 NEXT j 
5350 LOCATE 15,23 

5360 PRINT "Pulsa una tecla para se 
1 ector " 

5370 IF INKEY* THEN 5370 ELSE GO 

TO 190 

5380 ' ********************* INSTAL 

ACION DE IMPRESORA *************** 

* 

5390 LOCATE 20, B: PRINT "1NSTALACI0 

N DE IMPRESORA" 

5400 LOCATE 20,12 : PRINT "Espacios 

entre 1 i neas" 
5410 LOCATE 23,14 : PRINT "1 - un e 
spaci o" 

5420 LOCATE 23,15 : PRINT "2 • dos 
espacios" 
5430 LOCATE 23,16 : PRINT "3 = tres 

espacio3" 
5440 LOCATE 20, IB : PRINT " — > " : 
5450 GOSUB 430:cc*»h* 
5460 LOCATE 24,18 : PRINT cc* 
5470 IF cc*-" 1" THEN cl=15 : GOTO 5 
540 

3480 IF cc*""2" THEN cl-75 : GOTO 5 
540 

5490 IF cc*-"3" THEN cl=35 : GOTO 5 
540 
5500 LOCATE 24,18 : PRINT " 

5510 SOUND 1,200,10,7 

5520 GOTO 5440 

5530 'tt*************************** 

t 

5540 LOCATE 70,21 : PRINT "LA IMFRE 

SORA NO ESTA PREPARADA" : PRINT ttB.CH 

R*(13) : 

5550 PRINT #8, CHR* (27) ; CHR* (64) : 

5560 PRINT #B,CHR*(27) :CHR*(15); 

5570 PRINT #B. CHR* (27) : CHR* (51) : CHR 

*(cl) : 

5580 PRINT *B,CHR*(7); 

5390 LOCATE 10.21 : PRINT " 

INSTALACION EFECTUADA 
5600 LOCATE 20,23 : PRINT "Pulsa un 
a tecla para salida" 

3610 IF INk-EY*="" THEN 5610 ELSE SO 
UND 1 . 20 
5620 H<-1 : GOTO 2270 
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RATIS LAS TAPAS AL REAUZAR TU SUSCRIPCION 


Ahora, al realizar tu suscripcion, MICROHOBBY AMSTRAD te 
regala estas practicas tapas especialmente disefiadas para contener 
tu revista favorita. • NO es necesario recurrir a ningun tipo de 

encuadernacion ni manipulado. 

• EN cualquier momento puedes separar un 

ejemplar determinado y volverlo a colocar en 

solo unos segundos. 

• SON practicas y economicas... 

^ ... y con diseno especial para 

satisfacer a la gente inquieta. 

(Oferta vdlida hasta 

el 31 de mayo 

de 1986) 







Recorta o copia este (upon y envialo a Hobby Press. Apartado de Correos 232. Alcobendas (Madrid). 

Nombre Apellidos 

Direccion _ C. Postal 

Localidad 

Telefono 


Provincia 


Profesion 


O Deseo suscribirme a MICROHOBBY AMSTRAD por un ano (50 numeros) al precio de 6.400 ptas. (IVA incluido). 
Esta suscripcion me da derecho a recibir, total men te gratis, las tapas para contener la obra, valoradas en 670 ptas. 
(oferta vdlida hasta el 31 de mayo de 1986). 

O Deseo recibir en mi domicilio las tapas de MICROHOBBY AMSTRAD, al precio de 670 ptas. (IVA incluido). 

FORMA DE PAGO. MARCA CON UNA X LA OPCION QUE DESEES. 

D Contra reembolso 

D Mediante tarjeta de credito VISA. Numero de la tarjeta Fecha caducidad de la tarjeta 

□ Mediante talon bancario o nombre de Hobby Press, S. A. 

□ Mediante giro postal n. 


] Mediante domiciliacion bancaria 
Banco 


Sucursal y Localidad 


. 


Fecha y firma 


N.° de cuenta 



Lapiz Optico 


(GRAPHICS LIGHTPEN) 

Compatible: Amstrad CPC 464 y CPC 664 

DKTRONICS 


Los ordenadores y el arte cada vex 

poseen una relacion mas estrecha. 

La gente lo sabe, y los fabricantes 

saben tambien que esto vende. Por 

ello, cada vez se am pi fan de muchas 

maneras las posibiliaades para que el 

«artista» interaccione con el ordenador 

de la forma mas comoda posible. 

Una de ellas son los lapices opticos, 

como el de DK'Tronics, que analixamos 

en este numero. 


ta que nos permite poder utilizar el 
lapiz optico; es muy complete), per- 
mitiendo multitud de opciones, las 
cuales estdn todas comprendidas en 
un manual que contiene cada una de 
las utilidades posibles, explicadas a 
continuacion. 

Quizd una de las cosas que mas 
nos llama la atencion al empezar a 
leer el manual, es la posibilidad de 
realizar una copia de seguridad tan- 
to en disco como en cassette, indicdn- 
donos como debemos realizar la car- 
go del programa para posteriormen- 
te efectuar la copia, con lo que evi- 
taremos perder el programa por un 
deterioro del soporte. 

Otra de las sorpresas agradables, 
es la no obligacion de utilizar el la- 
piz para realizar los dibujos, ya que 
tambien disponemos de la posibili- 
dad de utilizar el teclado numerico 
de la derecha de nuestro ordenador 
para seleccionar cada una de las op- 
ciones disponibles, y, ademas, utili- 
zar los cursores y las teclas COPY y 
ENTER pequenas, con lo que solo 
con la mano derecha podremos rea- 
lizar cualquier dibujo, sin necesidad 
de elegir continuamente nuevas op- 
ciones a traves de la pantalla. 

La forma de trabajo del programa 
es la forma mas extendida dentro del 
software ultimamente, o sea, a tra- 
ves de ventanas de informacion y de 
iconos dentro de estas, permitiendo 
el manejo del programa tanto al mas 
pequeno de la casa como al pobre 
abuelito, poco acostumbrado al uso 
del ordenador. 



dibujo ccn or- 
denador ya es un hecho comun en 
todas partes. Si Picasso viviese loda- 
vfa, seguro que dibujarfa su famosa 
paloma, pero con ayuda de alguno 
de los multiples ordenadores ex'isten- 
tes en eLmercado. 

Vamos a comentar el contenido de 
un paquete de dibujo, que nos per- 
mitird realizar bonitas pantallas de 
presentacion para nuestros progra- 
mas, asf como plasmar copias de di- 
chas pantallas, a traves de la impre- 
sora. 

El paquete consta de dos partes 
claramente diferenciadas entre si: 
una de ellas es de las que podriamos 
incluir dentro de las denominadas de 
HARDWARE y es la que permite el 
funcionamiento de este periferico ex- 
terno, llamado lapiz optico. 

El equipo de hardware consta de 
un interface que se conecta al port 
trasero del ordenador, destinado a 
expansion, y el propio lapiz que por 
su apariencia podriamos, sin temor 
a equivocarnos demasiado, afirmar 
que se trata de la funda de un bolf- 
grafo comun y corriente, pero con un 
cable conectado a el. 

Por parte del software, encontra- 
remos un programa grabado en cin- 
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Menu a menu 


El programa se puede dividir en 
cinco grupos principales de menus 
entre los que podemos encontrar lo 
siguiente: 

Menu 1: En esta opcion, encontra- 
remos las cuatro posibilidades para 
utilizar los perifericos de almacena- 
miento. 

Podemos cargar y grabar las pan- 
tallas tanto en cassette como con uni- 
dad de disco, con ayuda de los ico- 
nos que representan cada una de las 
opciones. 



a»8«P* 



En el caso de utilizar el programa 
recien cargado de la cinta original, 
no se nos permitird utilizar las opcio- 
nes de disco, aun cuando el ordena- 
dor las posea. Solo funcionard si el 
programa ha sido cargado desde 
disco. 

Menu 2: Con las opciones incluidas 
en este menu podemos borrar la 
pantalla o lo que, mas comunmen- 
te, se llama CLS, asi como posicionar 
el cursor gufa en el lugar del moni- 
tor que consideremos oportuno, pa- 
ra su posterior utilizacion, sin nece- 
sidad de tener que ir buscdndolo con 
el lapiz. 
Menu 3: Dentro de este, encontra- 


remos las opciones de utilizacion de 
DRAW (tiralfneas), asi como la op- 
cion de FILL o relleno de figuras. 
Tambien podremos realizar el cam- 
bio de color a utilizar en el dibujo. 
Disponemos de un total de 10. Por 
ultimo, es posible elegir el tamano de 
trazo a utilizar, asf como la opcion 
de SPRAY con la que podremos ob- 
tener un efecto similar a los botes de 
spray utilizados para pintar. 

Menu 4: Entre sus posibilidades, 
ademds de las anteriormente men- 
cionadas (cambio de trazo y color), 
esta, la de realizar una serie de 
DRAW de forma continua tal que, 
marcando los puntos de comienzo y 
final del trazo, teniendo en cuenta 
que la primera vez marcaremos el 
comienzo de estas Ifneas, y, en los si- 
guientes trazos, solo marcaremos el 
final ya que tomard como primero el 
ultimo que hayamos marcado. Otra 
de las funciones, de forma similar, a 
la vez que desplazamos el cursor nos 
aparecerd la Ifnea desde el primer 
punto marcado hasta el cursor, per- 
mitiendo observer la Ifnea segun va- 
mos desplazdndonos, asi como el ce- 
rrar una figura mds fdcilmente. 

Menu 5: Sin lugar a dudas el mds 
completo de todos los menus y don- 
de se encuentran algunas opciones 
a destacar sobre otros programas de 
este tipo. 


El menu 5, potencia 
y sencillez 


Las opciones de este grupo mere- 
cen la pena comentarlas por separa- 
do, ya que su utilidad es bastante im- 
portante. 

Entre estas quizd las mds simples 
sean las de realizar circulos y figuras 
de cuatro lados, ya sean cuadrados 
o rectdngulos. 

Si deseamos introducir un texto en 
la pantalla que estamos realizando, 
bastard con elegir la opcion alfabe- 
tica indicada por las letras A B C, lo 
cual nos permite acceder a su vez a 
un nuevo menu donde podemos ele- 
gir desde escribir de izquierda a de- 
recha como lo hacemos normalmen- 
te, hasta escribir de abajo a arriba; 
tambien podremos realizar dentro 
de este nuevo menu la opcion de ele- 
gir nuevo color de trabajo. Una de 
las posibilidades que mds llama la 
atencion es la de poder, una vez es- 
crito el texto, desplazar este por to- 
da la pantalla, con lo que consegui- 
remos posicionarlo fdcilmente en 
cualquier lugar. 


_Banccdc 

fmrnmc 

Otra de las opciones que se am- 
plfan al ser elegidas es la de amplia- 
cion y reduccidn de for 
mas anteriormente dibujadas en 
pantalla; asi, si deseamos obtener un 
cardcter mds grande de lo habitual, 
no tendremos mds que elegir la op- 
cion alfabetica y despues con esta 
ampliarlo de tamano, reducirlo o du- 
plicarlo tal y como lo tenemos en 
pantalla pero en otra posicion. 

Y, por ultimo, la opcion que nos 
permite realizar una ampliacion de 
una seccion de la partfalla para su 
posterior trabajo, asi como la de rea- 
lizar una forma o figura y volcarla en 
cualquier lugar de la pantalla tantas 
veces como lo deseemos, permitien- 
do con ello no tener que realizar mu- 
chas veces figuras de identica forma. 
Dentro de esta funcion se observa a 
simple vista el aumento de tamano 
de los grdficos, que se dibujan en 
una magnitud ocho veces mayor al 
de la pantalla normal. 
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Del lapiz al icono 


Los iconos que encontraremos en 
el programa son una representation 
en dibujo de las opciones del mismo, 
asi, por ejemplo, si encontramos una 
pantalla con un lapiz dentro de es- 
ta, sera la opcion de dibujar con el 
lapiz en monitor en modo directo. Si 
lo que deseamos es realizar FILL, ele- 
giremos el icono que representa un 
grifo llenando un cacharro, y si lo 
que deseamos es dibujar simplemen- 
te, encontraremos la punta de un la- 
piz y un trazo. Otros de los iconos re- 
presentaran un cfrculo para realizar 
dicha figura y el rectdngulo para la 
misma; si queremos realizar el cam- 
bio de color, el icono que debemos 
utilizar sera el que simboliza una pa- 
leta de pintor, y si lo que deseamos 
es imprimir un texto elegiremos la op- 
cion ABC. 

Por ultimo, en el manual que 
acompana el paquete encontrare- 
mos varios programas de utilidad, 
con los que poaemos usar las pan- 
tallas en programas de nuestra in- 
vencion, asi como realizar copias por 
impresora, tal y como las hayamos 
dibujado, pudiendo con estos pro- 
gramas utilizar impresoras de los ti- 
pos distintos EPSON, AMSTRAD y 
otro tipo tal como CENTRONICS, in- 
troduciendo en esos programas al- 
gunos datos especfficos de cada una 
de ellas y que en el manual se expli- 
can. 

Tambien encontraremos dentro de 
este manual, ejemplos de programas 
con los que podemos disefiar nues- 
tros propios programas, para una 
posterior utilizacion, asi como una 
rutina en codigo mdquina desensam- 
blada para utilizacion correcta y 
completa del lapiz optico. 



En cuanto a la facilidad de mane- 
jo del programa y el lapiz optico, 
mucho me temo que la gente se can- 
sara pronto de estar dependiendo de 
un aparato que teoricamente va des- 
tinado al mejor manejo del progra- 
ma, y en realidad no facilita nada la 
labor. Hubiera sido mejor, quizd, 
realizar una mejor parte de HARD- 
WARE y del aparato y haber hecho 
un programa para su utilizacion un 
poco peor, pero mas acorde con su 
utilizacion. 

Para confirmar esto, basta con co- 
mentar que para guiar el puntero a 
traves de la pantalla, no debieramos 
necesitar mas que poner el lapiz en 
la pantalla, y desplazarlo por esta, 
pero no suele obedecer con suficien- 
te exactitud; ademas, si deseamos 
pintar a la vez que desplazamos el 
lapiz, no conseguiremos hacer un 
trazo sin que en el medio del mismo 
quede un espacio sin marcar. 

En realidad, el programa que 
acompana a este periferico es de ca- 
lidad mas que digna, ya que incor- 
pora algunos aspectos que casas im- 
portantes de software no han afron- 
tado, tales como la copia de seccio- 
nes de pantalla y su posterior trasla- 
do a otra zona de esta, o la amplia- 
cion y reduccion de una zona de la 
misma. 



Gana 

100.000 PESETAS 
CON MICKOHOBBY 

AMSTRAD 


SEMANAL 


I , orque pretendemos que AMSTRAD 
SEMANAL sea tambien vuestra revista, 
hemos abierto una seccion en la que se 
publicaran los mejores programas origi- 
nales recibidos en nuestra redaccion. Vo- 
sotros sereis los encargados de realizar 
estas paginas, en las que podreis apor- 
tar ideas y programas interesantes pa- 
ra otros lectores. 

Las condiciones son sencillas: 

— Los programas se enviardn a AMS- 
TRAD SEMANAL en una cinta de casset- 
te, sin fSroteccion en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 

— Cada programa debe ir acompa- 
nado de un texto explicativo en el cual 
se incluyan: 

— Description general del programa. 

— Tabla de subrutinas y variables uti- 
lizadas, explicando claramente la 
funcion de cada una de ellas. 

— Inslrucciones de manejo. 

— Todos estos datos deberan irescri- 
tos a maquina o con letra clara para ma- 
yor comprension del programa. 

— No se admitirdn programas que 
contengan caracteres de control, debi- 
do a que no son correctamente interpre- 
tados por las impresoras. 

— En una sola cinta puede introducir- 
se mas de un programa. 

— Una vez publicado, AMSTRAD SE- 
MANAL abonara al autor del programa 
de 15.000 a 100.000 pesetas, en con- 
cepto de derechos de autor. 

— Los autores de los programas selec- 
cionados para su publicacion, recibiran 
una comunicacion escrita de ello en un 
plazo no superior a dos meses a partir 
de la fecha en que su programa llegue 
a nuestra redaccion. 

— AMSTRAD SEMANAL se reserve el 
derecho de publicacion o no del progra- 
ma. 

— Todos los programas recibidos que- 
daran en poder'de AMSTRAD SEMA- 
NAL. 

— Los programas sospechosos de pla- 
gio seran eliminados inmediatamente. 

iENVIANOS 
TU PROGRAMA! 

Adjuntando los siguientes datos: 
Nombre y apellidos,- 
direceion y telefono. 

Indicando claramente en el sobre: 

AMSTRAD SEMANAL 

a HOBBY PRESS, S. A. La Granja, 39 
Pol. Ind. Alcobendas (Madrid) 
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Te ofrecemos 




alga "muy Especial 

En el mes de septiembre Por este motivo, y despues de 

nacio una AMSTRELLA que vino a los 6 primeros meses de andadura 

demostrar que los Amstrad estaban juntos con nuestros lectores, ha 

ahi y habia que contar con ellos. vuelto a suceder algo muy 

Hoy, miles de personas nos dan importante: ha nacido una 

la razon. AMSTRELLA MUY ESPECIAL. 





/ 


ft 


Spitfire 


El mitico avion 
ingles de caza 

Spitfire se 
convierte en el 

protagonista 

principal de un 

programa de 

simulation de 

vuelo, en el cual, 

las misiones de 

busqueda y 

derribo de aviones 

enemigos 

constituyen el 

principal objetivo 

de nuestra 

actuation como 

pilotos. 



oncebido por R. J. 
Mitchell en 1952, el primer prototi- 
po de Spitfire realizo su vuelo expe- 
rimental en marzo de 1936. Revelo 
un diseno revolucionario en aviones 
de combate, que le permetia alcan- 
zar una velocidad maxima de 350 
millas por hora y una maniobrabili- 
dad desconocida hasta entonces. 






JO 


<3 




En mayo de 1940, los alemanes 
ocupan las costas de Francia, e In- 
glaterra, queda sola ante la amena- 
za de la mas poderosa maquina de 
guerra de la historia desde el Impe- 
rio romano, separada solamente por 
21 millas de agua. 

Hitler, conocedor de la importan- 
cia de la superioridad aerea, es con- 
vencido por Hermann Goering de 
que su superioridad numerica, en pi- 
lotos y aparatos (en proporcion de 
uno a tres), puede darle una pronta 
victoria sobre la Royal Air Force. 

La Batalla de Inglaterra, fue gana- 
da por tres factores determinantes: 
tecnologfa, espfritu de lucha y los 
errores del enemigo. 

La avanzada tecnologia del Spit- 
fire, asistida por el uso del radar, y 
el legendario espiritu de lucha de los 
jovenes pilotos de los escuadrones de 
combate, cuya media de edad era 
de 20 afios, fueron factores decisi- 
vos. Los errores alemanes: falsos in- 
formes de inteligencia y una infrava- 
loracion del poderio de la RAF. 

Una vez que los esfuerzos alema- 
nes, se concentraron en bombardear 
nucleos urbanos en la zona de Blitz, 
la batalla se habfa ganado. 
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Medidor de la velocidad del aire: 
en unidades de 100 mph. 

Horizonte artificial: representa 
grdficamente la inclinacion del apa- 
rato. 

Indicador de velocidad vertical: 
mide la velocidad en elevacion o 
descenso del aparato en intervalos 
de 1.000 pies/minuto. 

Cuentarrevoluciones: mide la velo- 
cidad del motor en cientos de r.p.m. 

Indicador de giro y caida. 

Brujula: indica el rumbo al que nos 
dirigimos. 

Altfmetro: muestra la altura que 
nos separa del suelo en unidades de 
100 pies. 



;Atencion, escuadrilla 
enemiga en el radar! 

Los informes que recibimos de la 
central de radar son los siguientes: 
N.° de aviones enemigos, 3; dis- 
tancia del punto de encuentro, 1 4 mi- 
llas; rumbo, 200°; altitud del enemi- 
go, 6.000 pies. 

Con estas instrucciones, entramos 

en la cabina de nuestro caza y co- 

mienza la aventura; debemos loca- 

lizar la formacion enemiga, destruir- 

la y regresar a nuestra base a salvo. 

Lo mas impresionante del progra- 

ma es sin duda alguna el panel de 

mandos, tratado con un realismo y 

colorido impecable; estd dotado de 

todos los relojes e indicadores para 

el vuelo. 

Indicador de combustible: dispo- 
nemos de una autonomfa de 45 mi- 
nutos de vuelo. 



Hasta aqui, los elementos que 
constituyen la reproduccion de la ca- 
bina de mandos en un Spitfire origi- 
nal. Para facilitar el manejo del avion 
se han anadido dos nuevos: timon, 
e indicador de caida, que represen- 
ta una vista lateral del aparato, per- 
mitiendo la orientacion al ascender 
o caer en picado. 

Despues del panel de mandos, te- 
nemos la vista desde la cabina del pi- 
loto, en la cual tenemos una pano- 
ramica exacta de lo que ocurre ante 
nuestro caza; desde ella debemos 
abrir fuego contra los aparatos ene- 
migos y localizar nuestra pista de 
aterrizaje. 

Tambien disponemos de una pan- 
talla de mapas, representacion grd- 
fica de la zona sureste de Inglaterra, 
en la cual un avion rojo marca la po- 
sicion del Spitfire, mientras las naves 
enemigas son de color negro. 



El mapa esta dividido en tres zo- 
nas, cada una de las cuales se pue- 
de ampliar por separado para obte- 
ner una vision mas detallada de la 
posicion de las naves. 

Spitfire, es un simulador aereo de 
combate con un acercamiento tal a 
la realidad, que le convierte en el 
mas completo realizado hasta aho- 
ra para el Amstrad. 

Su manejo hace aconsejable el uso 
del joystick, el cual realiza los movi- 
mientos de ascenso, inclinacion del 
aparato a ambos lados y fuego de 
las ametralladoras. 

El total de las teclas que nos per- 
miten controlar el caza es de 15, lo 
cual da idea de la complejidad y de- 
talle con que se ha tratado el progra- 
ma. 

Un juego de valor incalculable pa- 
ra los adictos a los simuladores de 
vuelo, que basado en un modelo his- 
torico, anade la emocion de la loca- 
lizacion y el combate con los cazas 
enemigos. 
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Graficos 
Redondos 



La tercera parte de la serie acerca de los comandos graficos del 

Amstrad Basic, nos introduce directamente en el tema 

fundamental: como controlar la pantalla grafica del Amstrad 

completamente. 

Ademas, siempre es bienvenido un profundo analisis acerca de 

una de las ordenes graficas mas espectaculares: el comando 

FILL 


Continuemos. Supondremos, por el momen- 
ta, que el poligono esta centrado en el origen 
y tiene un vertice sobre el eje de la «X». 

Ayudados por la figura 1 vamos a ver si so- 
mos capaces de determinar las coordenadas 
de los vertices. 

FIGURA 1 

Las del vertice 1 estdn muy claras. Al estar 
sobre el eje «X», se deduce que la coorde- 
nada «y» va a ser 0. Y, £cual sera la «x»? 
Pues precisamente la distancia existente entre 
el punto y el origen. 

Por tanto, las coordenadas del vertice 1 se- 
rdn: 

x = distancia 
y=0 

Pasemos al segundo. Estard de acuerdo con 
nosotros en que el dngulo «angulo» valdra 
en este caso 360° dividido por el numero de 
lados que vaya a tener el poligono. Es cosa 
de repartirlos equitativamente, asi de sencillo. 

Pues entonces, calculemos las coordenadas 
de este segundo vertice. 

x = distancia * SIN (angulo) 
e 

y = distancia * COS (angulo) 

pero ahora ya podemos dar a la variable 
«dngulo» su valor concrete Las coordena- 
das serdn: 

x = distancia * SIN (360/numlados) 

y la vertical: 

y = distancia * COS (360/numlados) 

Podremos generalizar estas deducciones que 
hemos hecho para los demas vertices. Es evi- 
dente que sera cosa de ir sumando sucesiva- 
mente 

360/numlados 

al valor del dngulo que forma la recta que une 
el ultimo vertice, cuyas coordenadas hemos 
calculado, y el origen con el eje de las «X». 


2tai vaconsuscrea- 
ciones artisticas? Seguro que ya no tiene nin- 
gun problema en dibujar cualquier figura, 
compuesta de lineas rectas. 

Vamos a darle un poco de gracia al asun- 
to. Partiendo de las instrucciones que ya co- 
nocemos, intentaremos crear curvas, que limen 
y redondeen un poco la severidad de las for- 
mas rectas y angulares. jAdelante, pues! 

Si ha seguido nuestros articulos anteriores, 
sera capaz de hacer que su ordenador dibuje 
en la pantalla, un poligono de un numero cual- 
quiera de lados. Bastarfa con que en una plan- 
tilla de 640 * 400 puntos, calculemos con pa- 
ciencia, todas las coordenadas de cada uno 
de los vertices. 

Le parece un poco laborioso, £verdad? 
Bueno, pues eche a volar su imaginacion e in- 
tente encontrar algun sistema que le permita 
dibujar el mismo poligono, pero de un modo 
bastante menos trabajoso. 

^Recuerda como podiamos deter- 
minar las coordenadas de un punto, 
en funcion de su distancia al origen 
de coordenadas? 

Era muy sencillo. La coordenada horizon- 
tal venia dada por la formula: 

x = distancia * COS (angulo) 

y la vertical: 

y = distancia * SIN (angulo) 

en las que la variable «dngulo» va a conte- 
ner el valor del formado por la recta que une 
el punto con el origen y el eje horizontal de 
coordenadas. 

Luego, si conocemos los valores de «dis- 
tancia» y «dngulo» podremos conocer 
exactamente las coordenadas de punto. 
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Asi pues, el valor del «dngulo» para el pri- 
mer vertice sera: 

* dngulo=0 
para el segundo: 

1 * dngulo = 360/numlados 
el tercero sera: 

2 * 6ng\Ao=(360/numlados) * 2 

y asi sucesivamente. 

Y habiendo calculado ya los valores de los 
dngulos, no es muy dificil saber cudles son las 
coordenadas de cada vertice sustituyendolos 
en la formula general: 

x = distancia * COS (angulo) 
e 

y = distancia * SIN (angulo) 


Dibujando polfgonos 


Veamos un caso prdctico. Intentemos dibu- 
jar un poligono de cinco lados —pentagono— 
centrado en el origen de coordenadas. 

El proceso a seguir sera bastante sencillo. 
Lo primero que tendremos que hacer sera de- 
terminar las coordenadas de cada uno de los 
cinco vertices. (Eche un vistazo a todo lo que 
le hemos estado contando en la primera par- 
te del articulo.) 

Cuando ya las tengamos, el resto es coser 
y cantar. Iluminamos uno, por ejemplo el pri- 
mero, y a partir de ahi trazamos lineas rectas 
que unan cada uno con el siguiente hasta que 
se cierre el poligono de cinco lados. 

Con el organigrama de la figura 2 podre- 
mos comprobar que no es tan dificil como pa- 
recia a simple vista. 

Y Mega la hora de codificarlo para que el 
ordenador entienda y pueda sacar en la pan- 
talla el dibujo. El programa 1 nos muestra una 
de las maneras de hacerlo. 



Programa w 


En la linea 50 calculamos el valor del angu- 
lo contenido en la variable «dngulo» y que 
en este caso va a ser el correspondiente a un 
poligono de cinco lados. Le decimos al orde- 
nador que estd en grados con la instruccion 
DEG de la linea 30. 

Iluminamos el punto que coincide con el pri- 
mer vertice con la sentencia PLOT de la linea 
60. A partir de aqui comenzaremos a trazar 
los lados de este pentagono por medio de una 
linea quebrada cerrada que terminard en es- 
te mismo lugar. 

El primer lado sera la recta que une el pri- 
mer vertice —VI — , con el segundo — V2. Pues, 
jadelante! 

La instruccion DRAW que hay en la linea 70 
nos trazard la linea que necesitamos y ade- 
mds colocard el cursor grdfico en el segundo 
vertice. jNo se olvide de este ultimo 
detalle! 


En la 80 nos encontramos otro DRAW, que 
nos dibujard la recta que une el punto donde 
estd situado el cursor de los grdficos, con el 
tercer vertice. Pero, £Cudl es la position 
del cursor? 

En el pdrrafo anterior comentamos, y reco- 
mendamos no olvidarlo, que la linea 70 lo ha- 
bia colocado precisamente en el vertice V2. 

Asi que la linea 80 generard la recta que une 
el segundo y el tercer vertice. |Que casua- 
lidad! 

Hasta ahora todo va sobre ruedas, al me- 
nos teoricamente. Podemos continuar con es- 
te sistema, ya que vemos que nos da buen re- 
sultado, y terminar de construir el pentagono 
regular que teniamos entre manos (lineas 90 
a 110). 

Y con esto terminamos la codificacion del 
programa. Llega la hora de la verdad. Ejecu- 
telo. £Que ocurre? 

Seguramente se habrd llevado una desilu- 
sion al comprobar los resultados. En la pan- 
talla no ha aparecido un poligono regular, si- 
no solamente una especie de linea quebrada. 
Y, icomo es que esto no funciona si 
aparentemente hemos seguido un 
proceso logico valido y acertado? 
£En que es en lo que hemos fallado? 


P|«,y) 



Figura 1 . Determination de las coordenadas 
de un punto conociendo lo distoncia que lo se- 
para del origen. 

No se alarme. Nosotros, como ciertos su- 
perhombres, fallamos muy poquitas veces y so- 
bre todo somos muy «moaestos». Todo estd 
controlado. Si estamos dibujando un poligo- 
no regular centrado en el origen de coorde- 
nadas y este lo tenemos situado en el punto 
inferior izquierdo de la pantalla, £que otra 
cosa va a salirnos? 

Solamente nos aparece la parte del penta- 
gono que estd situada en la zona en la que 
los valores de «X» e «Y» son positivos y es- 
tdn comprendidos dentro de los limites esta- 
blecidos. 
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La parte que no aparece es la que estd si- 
tuada fuera de la pantalla. Por tanto no esta- 
mos muy equivocados al decir que todo estd 
controlado. 

Vamos a intentar solucionar este problema. 
jQue le parece si colocamos el origen de coor- 
denadas en el centro justo de la pantalla? Con 
ello teoricamente apareceria en nuestro mo- 
nitor todo el pentdgono regular. 

Pero, tcomo podemos hacer esto? 

Otra vez nuestro Amstrad va a sacarnos 
de apuros. En su maletin de herramientas hay 
una que en este momento nos viene que ni cai- 
da del cielo. Se trata de: 

ORIGIN X,Y 

y su mision es desplazar el origen de coorde- 
nadas al punto determinado por las coorde- 
nadas «x» e «y». 

Tiene otras muchas aplicaciones, pero esta 
es la mas sencilla y principal y nos parece muy 
oportuno comenzar por ella. 

Si tecleamos: 

ORIGIN 320,200 

estamos colocando, o redefiniendo, un nue- 
vo origen de coordenadas en el centro de la 
pantalla -punto 320,200. 

Podemos tambien situarlo fuera de la mis- 
ma si tenemos necesidad de ello. La forma de 
hacerlo seria por ejemplo: 

ORIGIN -40,35 

y el nuevo origen estard a la izquierda de su 
monitor sin que podamos verb. 

Volvamos a nuestro pentdgono regular. Va- 
mos a introducir una linea de programa que 
nos defina el nuevo origen. Introduzca en el 
programa 1 la linea: 

55 ORIGIN 320,200 


Figura III. 
Organigrama 
correspondiente al 
programa II. 
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y sdlvelo en el disco o cinta que haya destina- 
do para ir guardando todos los pequenos pro- 
gramas ilustrativos de estos Primeros Pasos. 

Y ahora ejecutelo. [Que maravilla! El 
poligono aparece completo en la pantalla y 
ademds en el centro de la misma. jVe como 
todo tiene solucidn! 

Vamos a intentar mejorar un poco la cosa. 
Habrd observado que hay una serie de ins- 
trucciones semejantes que se repiten varias ve- 
ces. Entonces, £por que no meterlas 
dentro de un bucle y asi ahorrarnos 
sentencias? 

En principio parece que el programa que- 
dard mucho mejor. Repetiremos el bucle tan- 
tas veces como lados tenga el poligono regu- 
lar —que en este caso son cinco. 

Para llevar la cuenta de ello vamos a utili- 
zer un «contador» o variable de control que 
nos va a decir cudndo hemos terminado nues- 
tro trabajo. 

El organigrama que nos indica esta segun- 
da forma de hacerlo estd reflejado en la figu- 
ra 3. 

Observe que al final hay una pregunta que 
nos va a servir para ver si tenemos que conti- 
nuar recorriendo el bucle o ya damos por fi- 
nalizado el proceso. 

La forma de plasmar esto en un programa 
es muy sencilla. Y si no compruebelo usted mis- 
"mo tecleando y ejecutando el programa 2. 


Programa dos 


El cuerpo del bucle estd formado por la ins- 
truccidn que hace ir aumentando el valor de 
«contador» —linea 90 y la que dibuja el co- 
rrespondiente lado en la pantalla— linea 100. 
La decision de seguir haciendo el bucle o de 
terminar la tomamos mediante la sentencia 
IF... THEN... ELSE de la 1 10. Aside sencillo. 

Por lo demds, la filosofia de la construction 
del poligono es igual que la empleada en el 
programa anterior: fijamos un punto y a par- 
tir de el trazamos el primer lado; a continua- 
cidn, y partiendo del segundo vertice, traza- 
mos el segundo lado, y asi hasta terminar. La 
unica diferencia estd en la forma de hacerlo 
—recorriendo un bucle o ir instruccidn por ins- 
truction. 

Sigamos con las mejoras. Vamos a intentar 
ahora realizar un programa que nos dibuje en 
la pantalla un poligono regular de un nume- 
ro cualquiera de lados que nosotros determi- 
naremos. Puede que esto nos resulte ya un po- 
co mds prdctico. Podria ser algo semejante al 
programa 3. 


Programa tres 


Nosotros vamos a darle el dato que nos pi- 
de, y que va a ser el numero de lados, y su 
valor lo almacenaremos en la variable «num- 
lados» —linea 50. 

Partiendo de esta cantidad vamos a deter- 



Figura IV. Diagrama de flujo del proceso em- 
pleado para rellenar el circulo del programa 
VI tratado como subrutina. 

minar tambien la medida del dngulo «central» 
formado por el eje «X» y la linea que une el 
origen de coordenadas con el primer vertice 
—linea 60. 

Simplemente con el 

dngulo = 360/numlados 
ya tenemos el cdlculo hecho. 

Y solamente nos queda meternos ya en el 
bucle que nos va a ir dibujando uno a uno ca- 
da lado del poligono regular. 

Saldremos de el cuando hallamos trazado 
el numero total de lados, es decir, cuando el 
contenido de «contador» se haga igual al 
valor de «numlados» (IF... THEN de la li- 
nea 120). 

Vamos a hacer un experimento con este pro- 
grama. Empezando por un tridngulo dibuje en 
la pantalla todos los poligonos regulares que 
quiera haciendo cada vez mayor el numero 
ae lados de los mismos. 

Y, £que ocurre? Podrd ir observando que 
a medida que aumenta la cantidad de lados, 
el poligono se va pareciendo cada vez mds a 
otra figura geometrica muy conocida por no- 
sotros: la circunferencia. 

De un valor muy grande a la variable 
«numlados» y estamos seguros de que no 
notard la diferencia. 

Asi pues, poco a poco y con bastante pa- 
ciencia hemos ido deduciendo la manera de 
ir construyendo con el Amstrad una perfecta 
circunferencia. 

Tenemos dos formas de dibujar esta figura 
geometrica: iluminando los vertices de un po- 
ligono regular de un «monton» de lados o tra- 
zando mediante lineas rectas su perimetro. 

A primera vista ambas figuras geometricas 
son iguales, pero solo a primera vista. Recuer- 
de que una estd hecha a base de puntos y la 
otra de lineas continuas. Ya vera por que su- 
brayamos esto. 

Los programas 4 y 5 son la muestra de lo 
que le estamos diciendo. 
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Prog ram as cuatro y 
cinco 


En ellos partimos de la idea de construir sen- 
dos poligonos regulares de 360 lados. Por eso 
el valor que damos al dngulo central que abar- 
ca un lado (muy pequenito esta vez) sera: 

angulo=360/360=l 

Por supuesto que en estos casos la variable 
«numlados» la sustituimos por su valor fi- 
jo: 360. 

^Donde estd la diferencia existen- 
te entre estos dos programas? Si los 
sigue detenidamente observara que solo hay 
una: la linea 100. 

Con ella es suficiente para que una vez di- 
bujemos la circunferencia a base de puntos y 
la otra a base de una linea quebrada conti- 
nua. 

Y ahora vamos a dar color a nuestros dibu- 
jos. Si rellenamos nuestro circulo a base de ra- 
dios muy «pegadit0S» unos a otros pode- 
mos darle, de una manera muy laboriosa, el 
color que queramos. 

En el programa 6 hemos dado todo un tra- 
tado sobre la «radialidad» y la paciencia. jEs 
broma! 


Programa seis 


La manera de dar color al interior del cir- 
culo es la siguiente: nos colocamos en su cen- 
tra y trazamos un radio mediante DRAW; nos 
volvemos a colocar otra vez en el centro y di- 
bujamos el radio que estd contiguo al ante- 
rior, y asi sucesivamente hasta recorrer todos 
los puntos de la circunferencia. jMenos mal 
que esta labor de chinos la va a realizar nues- 
tro Amstrad; 

La vamos haciendo mediante repetidas pa- 
sadas por las instrucciones de las lineas 90 y 
1 00. En la primera mediante PLOT colocamos 
el cursor grafico en el centro del circuito y me- 
diante el DRAW de la segunda vamos trazan- 
do todos y cada uno de los radios. 

En la figura 4 vemos detalladamente la re- 
presentation grafica de este proceso logico se- 
guido para rellenar el circulo. jEstd claro? 



- Pero nuestro Amstrad puede evitarnos to- 
do esto. Algunos de sus modelos —664 y 
6128— poseen una instruccion que nos va a 
ahorrar bastante trabajo. FILL 3 

Nos va a rellenar dei color asignado a la 
«tinta» 3 todos los puntos comprendidos 
dentro de una linea cerrada que rodee al pun- 
to donde estamos situados. £Que quiere 
decir esto del punto donde estamos 
situados? 

Sencillamente que si queremos dar color al 
interior de una linea cerrada, antes de nada 
nos tendremos que colocar dentro de ella. 

Y, £Como? Si lo hacemos mediante PLOT 
quedard iluminado el punto al que nos referi- 
mos, asi que no nos vale del todo. 

Pero como siempre nuestro micro acude en 
nuestra ayuda. 

MOVE es la instruccion que estamos nece- 
sitando. Su funcionamiento es muy semejante 
al de PLOT ya que tambien coloca el cursor 
grafico en un determinado punto pero esta vez 
no lo dibuja, simplemente lo posiciona alii. 

Su forma mas sencilla es: 

MOVE x, y 

donde «x» e «y» son las coordenadas gra- 
ficas de la position donde nos queremos situar. 

A exception de que no ilumina el punto, 
puede aplicdrsele lo dicho para PLOT. 

Y estas son las instrucciones que utilizamos 
para colorear al circulo dibujado por el pro- 
grama 7. 


Programa sieto 


Nos situamos en su interior mediante la sen- 
tencia MOVE de la linea 1 20 y una vez alii sa- 
camos nuestros pinceles y «a darle color». 
Bueno, el Amstrad lo hace con la instruccion 
FILL de la linea 130. 

jOjo lo que hacemos con este nue- 
vo comando! Antes de nada debemos ase- 
gurarnos muy bien de que la linea cuyo inte- 
rior queremos iluminar estd perfectamente ce- 
rrada. 

De no ser asi podrian ocurrirle lamentables 
accidentes como el producido en el progra- 
ma 8. 


Programa ocho 


En este caso la linea no estd perfectamente 
cerrada ya que la hemos dibujado a base de 
puntos con la instruccion PLOT de la linea 1 00 
y vea lo que nos ha ocurrido. 

Y todos manchados de «color» terminamos 
por hoy. Le dejamos que practique el correc- 
to manejo de todas estas instrucciones, que nos 
van a servir de paleta y pincel, y muy pronto 
pueda obsequiamos con alguna buena 
«obra maestra». Hasta la semana que vie- 
ne. 
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l?r> if cc^^dor nui»t iMn THFN rriTO 
tnjn 

lO REM PROGRAMA IV 

70 CIS 

~.0 DFP 

4ri radio^ioo 

50 .-nqi.il o-?£>0/'foO 

60 cont .\dcir »0 

70 ORIGIN 330.200 

RO PLOT radio, 

90 contador eont ador +1 

100 DRAW radin*CP-5(ront*dnr tangulo) 

,radi otSIN (contador languid 

110 IF contador 76u THEM GOTO 9i> 

10 REM PROGRAMA V 

20 CLS 

TO DEG 

40 radio 100 

50 angulo-760/760 

60 contador 

70 ORIGIN 370. 20O 

80 PLOT radio, O 

90 contador -contado +1 

100 PLOT radlotCOS(contador Jangulo) 

, radio* 1 ? IN (contador * dngulo) 

110 IF cont*dor=7,60 THFN END ELSE G 

OTO 90 

10 REM PROGRAMA VI 

20 CLS 

TO DER 

40 r ad in=10O 

30 angulo '60/760 

60 contador»0 

70 ORIGIN 770.200 

SO contador^cantador +■ 1 

90 PI OT n.o 

ino DRAW radiotcns (cnnt Adn- tanciulo 1 

, radi o*^l N (coot ^d<^^1 angul o) 

1 1 r-^i IF contador "60 THFN END FIT G 

OTO BO 

10 REM PROGRAMA VII 

70 CLS 

70 DEG 

40 radio 100 

50 angulo»360/ier> 

60 contador 

70 ORIGIN 520,200 

80 PLOT radio. 

90 cant a dor »contador+ I 

100 DRAW radlotCOS(contadartangulo) 

,radio*SIN<contadar»*ngLil o) 

110 IF contador' M80 THEN GOTO 90 

120 MOVE 0.0 

10 REM PROGRAMA VIII 

20 CLS 

30 DEG 

40 r«di o-lOO 

30 angu.ta-360/180 

60 contador"0 

70 ORIGIN 720,200 

BO PLOT radio, 

90 contador "contador* 1 

100 PLOT r*dio*COS<cantadort*ngulo) 

, radlo*3 IN (contador tangulo) 

110 IF cantadorOlBO THEN GOTO 90 

120 MOVE 0,0 
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$ in duda 


olguno 


A, 


, traves de esta seccion se pre- 
tende resolver, en la medida de lo 
posible, todas las posibles dudas 
que «atormenten» a todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si lo son, se encuen- 
tren en cualquier nivel de destreza 
en su manejo. 

Semanalmente, aparecen en estas 
paginas las consultas de la mayor 
cantidad de usuarios posible; ello re- 
dundard en un mejor servicio y en 
un contacto mas estrecho entre to- 
dos nosotros a traves de la revista. 

SIN DUDA ALGUNA estd 
abierta a todos. 


Discos y telefonos 

La razon de escribir esta carta, es 
que resuelvan mis dudas en el apar- 
tado de su revista «Sin duda alguna». 

— jQue es formatear un disco? 

— jQue es un modem? 

— Un programa que funcione en el 
CPC-464 y en el CPC-664, jfunciona 
en el CPC-6128? 

Les doy las gracias por anticipado, 
y espero que puedan contestarme 
pronto. 

Os envia la carta vuestro amigo, 
Miguel Angel Casanova (Teruel) 

Formatear un disco consiste en 
crearle los «surcos», pistas en termi- 
nos mas formales y dividir estas en 
sectores, de forma que la cabeza lec- 
tora del disco pueda moverse por to- 
da la superficie con conocimiento de 
causa. 

La palabra modem es abreviatu- 
ra de modulador, demodulador. Sir- 
ve para enviar informacion via tele- 
fonicci a otro ordenador y natural- 
mente tambien para recibirla. 

En cuanto a los programas que co- 
rren en un 464 y en un 664, no ha- 
brfa problemas en lo que a Basic se 
refiere. Si se trata de programas co- 
merciales, esto es, codigo mdquina 
casi seguro, el programador tendra 
que haber respetado ciertas normas 
basicas; si asf lo hace no habria nin- 


gun problema. Ultimamente esta vie- 
ne siendo la tonica general en los 
productos del mercado. 


jBasta de break! 

Estimados amigos: 

En mis programas se me presenta 
la duda de como protegerlos y me 
gustaria saber como podrfa enmude- 
cer la tecla < ESC + . 

Carl Hofferber (Madrid) 

Dos son las maneras que 
tienes de resolver el proble- 
ma que planteas. La primera 
consiste en asignar a la tecla 

<ESC + , la 66, el valor 0; lo que 
conseguirfas tecleando: 

1 KEY DEF 66,0,0,0 

Y la segunda que seria sencilla- 
mente: 

1 ON BREAK CONT 

Esto ultimo no te funcionard si tie- 
nes un 464, aunque puedes sustituir- 
lo por: 

1 ON BREAK GOSUB 1000 
1000 RETURN 

jPero ojo!, cualquiera que sea la op- 
cion que elijas ya no habra forma hu- 
mana de pararlo. 


M T CROSOFT 
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04 7 (Jardes de 5_ 
DE" EST AS" PR ACT"! CAS FUND AS 


a 9) 


0~ SPECTRUM 16/48 

O-SPECTRUM PLUS 

0- SPECTRUM 128 K 

Q- SINCLAIR Q.L 

O-TECLADO SAGA 1 

O-TECLADO SAGA 3 

O- COMMODORE y VIC 20.. 

O-HIT-BIT 

O-SEIKOSHA SP 800/10DO 
O-IMP. AMSTRAD DMP-1.. 
0- IMP. RITEMAM F+/C+.. 
O-IMP. RITEMAN 10/120. 
O- AMSTRAD CPC 464 (V) 
0- AMSTRAD CPC 664 (V) 
O-AMSTRAD CPC 6128 (V) 

G-AMSTRAD PCW 8256 

(MARQUE CDN UNA "X" 
Gastos de envio: 1 


1 


330 
460 
855 ft 
180 ft 
570 ft 
715 ft 
665 f. 
665 ft 
900 ft 
205 ft 
825 ft 
785 f. 

(0 

(0 

(0 



AMSTRAD 


LAS 
50 f\ 


2.262 rt 
2.262 f. 
2.262 ft 
3.250 ft 
OPC TONES 


COMMODORE 


O- CASSETTE ESPECIAL ORDENADOR : 4. 650 ft 

0- CABLE CASSETTE PARA AMSTRAD CPC 664 y 6128...: 850 h 
O -CASSETTE Y CABLE PARA AMSTRAD CPC 664 y 6128.: 5.400 ft 
DESEADAS) FORMA DE PAGO CONTRA REEMBOLSO 


TODOS ESTOS PRECIOS LLEVAN INCLUID0 EL I . V. A, 


INTERESANTES CONDICIONES PARA 


DISTRIBUIDORES 


Recorte a 
-NQMBRE Y APEL 
-DOMICIL.IO . . , 
-LOCAL I DAD . . . 
-PROVING I A . . . 


cnpi e 
LIDOS 


este anuncio y envielo hoy mismo a MICROSOFT— HARD , SL 


COD. 
TFNO 


POSTAL 


SEGUIMOS POTENCIANDO TU AMSTRAD... 

...AHORA LE HACEMOS HABLAR 

NUEVO SINTETIZADOR DE VOZ EN CASTELLANO 

El programa que controla este sintetizador, contiene las reglas basicas 
de pronunciacion en castellano y permite su funcionamiento, tanto en 
modo directo, como bajo el control de un programa. 

Compatible con los modelos CPC 464, CPC 664 y CPC 6128 
de AMSTRAD. 




Oslribuido por LSB, S. A. • c/ Sanchez Pacheco, 78 - 28002 MADRID - Tel. 413 92 68 


MHT ingenieros 


M 


ercado 
coinun 


V^ion el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus pdgi- 
nas para publicar los pequefios anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuacion. 

En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
y en general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 

Envfanos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 

jABSTENERSE PIRATASI 


Vendo Amsword II, Ambase, 
Devpac, Compilador de Pascal, 
Amscalc por 600 ptas. cada uno o 
2.500 ptas. todo el lote. 
Interesados escribir a: Jose 
Planelles Segui. C/ Musico Peyro, 
21, P-10. 46001 Valencia, 
-fe- 


Desearia contactor con usuarios 
de Amstrad (en especial CPC 
6128) para intercambiar 
programas. Interesados dirigirse a 
Francisco Roman. C/ Begofia, 17. 
Alquife (Granada). 


Desearia contactor con todos los 
usuarios de Amstrad CPC 
664-6128, para el intercambio de 
programas, ideas, impresiones. 
Dirigirse a: Pedro Reig Gandal. C/ 
Filipinos, 9, P. a 22. 46006 
Valencia. 


Vendo ordenador Spectrum 48K. 
Tambien impresora Seikosha GP 
50 S. Regalo gran cantidad de 
revistas y cintas de juegos y 
utilidades. Precio muy interesante. 
Interesados dirigirse a: Maximino 
Costales Fernandez. C/ Avda. de 
San Agustfn, 13, 9.° C. Aviles 
(Asturias). Tel. (985) 56 09 14. 


Deseo contactor con usuarios de 
Amstrad PCW 8256 para 
intercambio de ideas, programas, 
etc. Las areas de interes son 
bioestadistica, programas de 
aplicacion para gestion, y juegos. 
Interesados escribir a: Francisco 
Casariego Pola. C/ Coyanca, s/n. 
Candas (Asturias). 


Vendo impresora Seikosha GP 
250 X con entradas Centronics y 
RS232, papel continuo, 80 
columnas, 64 caracteres 
programables y 4 tipos de letras. 
Muy poco uso, por 30.000 ptas. 
incluido manual de instrucciones. 
Interesados llamar al Tel. (973) 
27 20 83 o al (93) 254 39 55, 
preguntar por Julian. 


Vendo Amstrad CPC 664 con 

monitor fosforo verde, cable para 
cassette, juego de ajedrez en 
disco 3-D Voice Chess con voz en 
castellano, 2 cintas de juegos, 
manuales y varios diskettes todo 
por 100.000 ptas. Tambien vendo 
impresora Printer-80 Indescomp 
por 35.000 ptas. Interesados 
escribir a: Pedro Marquez 
Jimenez. C/ Velarde, 11, 2.° B. 
Linares (Jaen). 


Desearia contactor con usuarios 
de Amstrad para formar un gran 
club, preferentemente de Vizcaya 
(area de Bilbao). Interesados 
escribir a: Kepa Lopez. C/ Jose 
Zaldua, 14, 1.° C. Portugalete 
(Vizcaya). 


Desearia contactor con usuarios 
de Amstrad CPC 464, para 
cambiar programas de juegos y 
utilidades, tengo mas de 200 y 
prometo escribir a todos. Pedro 
Rodriguez. Apartado de Correos, 
81, o contactor en el Tel. (952) 
82 22 45. Marbella (Malaga). 


Vendo Amstrad CPC 664 

monitor color, unidad de disco 3" 
(en garantia), y programas de 
origen. Ademas software en disco 
(valorado en 20.000 ptas.), 
joystick Quickshoat II y manual de 
firmware. Urge vender y aceptare 
la mejor oferta a partir de 85.000 
ptas. Interesados escribir a: Carlos 
Garcia de Castro. C/ Riera Alta, 
43, 2.°-l.° 08001 Barcelona. 


Vendo programas del Spectrum 
16K (precio a concertar) o cambio, 
por programas para el Amstrad 
(cualquier modelo). Intercambio 
programas del Amstrad. Para 
cualquier consulta escribir a: Juan 
Elias Luna Millan. C/ Cami nou, 
61, pta. 5. Benetuser (Valencia). 
O llamar al Tel. (96) 375 55 52, 
preguntar por Juan Elias. 


Desearia contactor con usuarios 
de Amstrad para intercambios de 
programas comerciales. Tengo 
mas de 50. Solo Vizcaya. Escribir 
a: Agustin Sanabria. C/ Jenaro 
Orea, 32, 7.° Dcha. Santurce 
(Vizcaya). 


-PUDLICIDAD- 
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\GABINETE DE INFORMATICA 

Closes de Informatica 
sobre AMSTRAD 

Exclusivamente individuates. 

Ordenadores AMSTRAD y 

perifericos 

Los mejores precios 

Software a la medida 

ZURBANO,4^8?410 47 63 
28010 MADRID 


Vendo Amstrad CPC 464, 
monitor fosforo verde, unidad de 
discos e impresora Admate 
DP-100; osciloscopio de 2 canales, 
generador BF, polfmetro, etc., 
libros y revistas de electronica. 
Pedir relacion de material y 
precios a: Gonzalo Viejo 
Gonzalez. C/ La Magdalena, 24, 
9.° B. Aviles (Asturias). Tel. (985) 
54 27 91. 
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C/ Duque de Sesto, 50. 28009 Madrid 

Tel.: (91) 275 96 16/274 53 80 

(Metro O'Donell o Goya) 


SOFTWARE: por cada programa GRATIS j|1 BOLIGRAFO CON RELOJ DE CUARZO!! 


HYPER SPORTS 2.300 ptas. 

TORNADO LOW LEVEL 1.950 ptas. 

EXPLODING FISTT 2.300 ptas. 

JUMP JET 2.495 ptas. 

ZORRO 2.600 ptas. 

SABREWULF 1.650 ptas. 

GHOSTBUSTERS 1.950 ptas. 

GYROSCOPE 2.300 ptas. 

HYGHWAY ENCOUNTER 1.750 ptas. 

HIGHWAY ENCOUNTER DISCO 3.300 ptas. 


DYNAMITE DAN 2.100 ptas. 

RAID OVER MOSCOW 2.300 ptas. 

THEY SOLD A MILLION 2.500 ptas. 

FIGHTER PILOT 1.975 ptas. 

MASTER OF T. LAMP 1.950 ptas. 

NIGHTSHADE 1.950 ptas. 

HACKER 1.950 ptas. 

SUPER TEST 2.300 ptas. 

MAPGAME 2.700 ptas. 

TONADO LOW LEVEL DISCO 3.300 ptas. 


L 


JOYSTICK QUICK SHOTT II.. 2.295 ptas. 
JOYSTICK QUICK SHOT V . . . 2.595 ptas. 


PC-COMPATIBLE IBM 256 K 

MONITOR FOSFORO VERDE 

2 BOCAS DISKETTE 360 K 

SOLO ii243.900H 


A 


TAPA METACRILATO PARA 
TECLADO jj1. 900 ptas.!! . 


L 


UNIDAD DISKETTE 5.25" 
M45.900 ptas.!! / 
(incluido controlador) / 


L 


LAPIZ OPTICO 
|j4.900 ptas.! i 


IMPRESORA MARGARITA 
jj49.900 ptas.!! 


L 


CASSETTE ESPECIAL 
ORDENADOR 5.295 ptas. 


/ 


PRECIOS SUPER-EXCEPCIONALES PARA 

AMSTRAD CPC-472 Y CPC-6128 

jjLLAMANOS, TE ASOMBRARASM 


IMPRESORAS 
H20% DTO. SOBRE P.V.P.H 


SINTETIZADOR DE VOZ 

Y AMPLIFICADOR: 

7.900 ptas. 


L 


MODULADOR TV 
8.400 ptas. 


L 


INTERFACE DISCO 
5 1.4" 5.300 ptas. 


L 


CINTA C-15 ESPECIAL 
ORDENADOR 85 ptas. 
DISKETTE 3" 990 ptas. 


z 


UNIDAD DE DISCO 3" CON 
CONTROLADOR: 49.900 ptas. 


Libros: 

Curso autodidactico Basic I 2.525 ptas. 

Curso autodidactico Basic II 2.525 ptas. 

Programando con Amstrad 2.195 ptas. 

Juegos sensacionales Amstrad 1.950 ptas. 

Hacia la Inteligencia Artific 1.295 ptas. 

Musica y sonidos con Amstrad 995 ptas. 


Pedidos contra reembolso sin ningun gasto de envio. Tels.OD 275 96 16/274 53 80, o escribiendo a Micro 1.C/ Duque de Sesto, 50. 28009 Madrid 


SI 



LO 




I S<y^tcuaxe 



\ 



DISTRIBUTOR EXCLUSIVO PARA ESPANA ERBE SOFTWARE 01. STA. ENGRACIA, 17 - 28010 MADRID, TFNO. (91) 447 34 10 

DELEGACION BARCELONA, AVDA. MISTRAL N.° 10. TFNO. (93) 432 07 31 


